A Milano, in via Mascheroni, 14. 
[а рита software - libreria italiana 


Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novita. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo е ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 


Dove? Alla Libreria JACKSON. La prima software - libreria italiana. 
ñ Milano, in ша Mascheroni, 14. - Tel. 02-437385 


Vieni a trovarci: ti aspettiamo. 
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er APPassionante 
ICatq 


Compresq саззена 
Орриге 
L. 30.000 


Рег la sola rivista 


inviando il Coupon 
Abbonarsi è semplice! Effettuate il ver. 
ritagliate il tagliando abb 


Pubblicato a fon 


do Pagina Otterrete Pronta soddi 


sfazione alla vostro richiesta 


‘P. inserito in Questo fascicolo, oppure 
ag peditelo allegando UN assegno intestato а: 
Restelli, 5. 20124 Milano, 


mento q SUPERSINC d 
stelli 5 . 2 


18] Abbonamento а 11 numer; 


E Abbonamento a 11 numeri d; 
Speciale di |. 66.000 


di 


cognome 


via 


Provincia 


numerose lettere di lettori che protestano per il mancato 
funzionamento dei programmi pubblicati sulla rivista. Parliamone. Pri- 
ma della pubblicazione ogni programma viene accuratamente e a lungo 
provato, testato e giocato (se di gioco si tratta) in redazione, proprio per 
controllarne il corretto funzionamento. 

La produzione del listato e della cassetta avviene utilizzando poi un master 
"supercollaudato" (per una superivista à necessario un supercollaudo). 
Come abbiamo già avuto modo di dire, puó succedere che, per motivi di 
carattere tecnico e del tutto imprevedibili, qualche cassetta risulti non 
perfettamente funzionante. Tutto ció rientra, nostro malgrado, nella nor- 
malità delle cose. 

Il medesimo discorso vale per la pubblicazione dei listati; ogni tanto qualco- 
sa рид sfuggire agli occhi attenti di redattori, grafici, ecc. 

In ogni caso si tratta sempre e comunque di eventi con carattere di 
eccezione. Quando abbiamo avuto modo di controllare le asserzioni di 
certi lettori che sostenevano il malfunzionamento di un programma ё 
sempre risultato un errore di caricamento da cassetta oppure un errore 
di trascrizione dello stesso. 

Nel primo caso non erano state lette, e correttamente interpretate, le 
istruzioni per il caricamento da nastro; nel secondo caso, nonostante ГОК 
List, сега un lettore di trascrizione nel programma. 

I più frequenti tra questi errori sono lo scambio dello 0 (zero) con la lettera 
“O” oppure la errore “1” con la cifra 1 e così via. 

Quanto detto non vuole certo essere una difesa ad oltranza del nostro 
lavoro, ma non è giusto che ci vengano addossate colpe per lo più inesisten- 
ti. 

Vi chiediamo dunque di porre un ро” più di attenzione, poiché siamo certi 
che, così facendo, potranno essere risolti la maggior parte dei problemi 
circa il corretto funzionamento di cassette e programmi. 


Pietro Dell'Orco 
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Per collaborare a SUPERSINC 


La rivista ë interessata ad articoli e programmi riguardanti la linea Sinclair, di interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo 
scopo di rendere piü accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si 
accresceranno le probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


l'angolo superiore sinistro della prima pagina 

dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

l'angolo superiore destro della prima pagina 

dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 
3: titolo dell'articolo, sottolineato, dovrà ini- 

ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 

normalmente, con la condizione che l'angolo 
superiore destro contenga un'abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Horance Goes.../ 
Brambilla /2. 

il testo dell’articolo dovrà essere battuto a 

macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

dovranno essere usati fogli in formato UNI 

А4 (cm. 21 x 29,7) e il testo, scritto іп carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

nel caso il testo comprenda piü fogli, questi 

dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

avendo intenzione di spedire piü di un artico- 

lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. | 
programmi brevi (meno di 20 linee) potranno 

essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
` non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell'autore, il titolo 
dell'articolo, il computer interessato e soprat- 
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tutto le eventuali espansioni richieste. Come sug- 
gerimenti di programmazione si consiglia di usa- 
re, per esigenze di stampa listati, le istruzioni 
INK, PAPER, INVERSE, piuttosto che scrivere 
direttamente in INVERSE VIDEO. Un rapido 
controllo dei programmi per operare queste so- 
stituzioni sarà da noi estremamente apprezza- 
to. 
1 per maggior chiarezza, all'interno dell'ar- 
ticolo é conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, é preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 
1 @ gli articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 
1 2 includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
1 3i prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 
editrici. 
1 4: materiale non pubblicato non verrà re- 
stituito. 
1 5: compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all'interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300.000). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 
SUPERSINC 

Viale Restelli, 5 

20124 Milano 


e saremo lietissimi di pubblicare i contri- 
buti migliori. 
La Redazione 


Grazie! 
Vi spedisco due programmi garantendo- 
ne l'originalità... 
Fabio Galli 

Secondigliano (NA) 


I due programmi sono in effetti un ро” 
“ini” e per questo li pubblichiamo di 
seguito unificati. Essendo già stato pub- 
blicato su PAPERSOFT in forma molto 
simile, il secondo e stato da noi "arric- 


chito" con un paio di piccolezze. 


5 OVER 1 
10 FOR n=0 TO 120 
20 PLOT n,n: DRAW (n*COS n)/2,(n* 


SIN n)/2 

30 PLOT 255-n,n: DRAW -(n*COS n)/2, 
(n*SIN n)/2 

40 PLOT n,175-n: DRAW (n*COS n)/2,- 
(n*SIN n)/2 


50 PLOT 255-n,175-n: DRAW -(n*COS n 
)/2,-(n*SIN n)/2 

60 NEXT n 

100 PRINT #1;"Premi un tasto per con 
tinuare...": PAUSE 0: CLS 

110 FOR n=0 TO 255 

120 PRINT AT 0,0;"111111111111111111 
11111111111111222222222222222222 
22222222222222333333333333333333 
33333333333333444444444444444444 
44444444444444555555555555555555 
55555555555555666666666666666666 
66666666666666777777777777777777 
77777777777777888888888888888888 
88888888888888999999999999999999 
99999999999999000000000000000000 
00000000000000aaaaaaaaaaaaaaaaaa 
aaaaaaaaaaaaaabbbbbbbbbbbbbbbbbb 
bbbbbbbbbbbbbbcccccccccccccccccc 
ccccccccccccccdddddddddddddddddd 
ddddddddddddddeeeeeeeeeeeeeeeeee 
eeeeeeeeeeeeeeffffffffffffffffff 
ffffffffffffffgggggggggggggggggg 


jjjjjjjjjjjjjjkkkkkkkkkkkkkkkkkk 
kkkkkkkkkkkkkk" 

125 PRINT #1; АТ 1,6; "Ма guarda un ро 
' и 

130 РОКЕ 23606,n: PAUSE 10: NEXT n 

140 FOR п-255 TO 0 STEP -1: POKE 236 
06,n 

150 PRINT #0;АТ 0,0;"Dopo tutta ques 
ta storia mi girala testa. Non a 
vete un'aspirina?" 

160 NEXT n 

170 PAUSE O0 

175 CLS 

180 PRINT %0;АТ 0,11; FLASH 1;"Grazi 
ell": PAUSE 150 


I problemi dello ZX81 

Carissimi amici, 

inutile congratularmi ancora con voi per 
la vostra riuscita rivista, ma passo diretta- 


mente (come è mia abitudine) al sodo del 
discorso. 

Nel mondo delle riviste specializzate nel 
settore dell’informatica voi siete gli unici 
che presentiate regolarmente un pro- 
gramma (almeno un programma. N.d.R.) 
per lo ZX81, primo vero personal com- 
puter della storia. 

Purtroppo ho da farvi alcune critiche. 
Sebbene la bontà dei vostri programmi 
sia spesso indiscutibile, peccate di abbon- 
danza per il penultimo nato di casa Sin- 
clair: l'amato-odiato Spectrum. 

Amato perché indubbiamente lo Spec- 
trum е il miglior personal a colori attual- 
mente sul mercato, odiato perché in qua- 
lunque rivista (compresa la vostra) é sem- 
pre preferito all'intramontabile ZX81. 
Mi sembra superfluo rammentarvi che lo 
2Х81 occupa attualmete il decimo posto 
nella classifica delle vendite in Gran Bre- 
tagna, ma ovunque guardi non trovo al- 
tro che software per lo Spectrum. 
Inoltre, gli stessi pochi listati presentati 
da voi non funzionano (“Forzaquattro” 
caricato dalla cassetta presenta un errore 
alla linea 9020, e se tento di editarla il 
computer si resetta) o sono decisamente 
difficili da trascrivere (ho impiegato una 
settimana a riscrivere decentemente "Il 
castello dei dragoni" e ancora non sono 
soddisfatto). 

Pochi, anzi, niente trucchi di program- 
mazione o chiarimenti nei confronti di 
questa piccola macchina, che, anche se 
diciamo veterana, regge bene al confron- 
to con altre рій recenti. 

Da una rivista seria e qualificata come la 
vostra un lettore medio e “affamato” si 
aspetta decine di appoggi e chiarimenti 
per il proprio personal. Non dico che con 
ció dobbiate drasticamente diminuire lo 
spazio per lo Spectrum, ma almeno in- 
cludete uno spazio "ZX81 only" in cui 
accumulare trucchi e spiegazioni. 

Per esempio: sono terrorizzato аа 
PEEK, POKE e codice macchina, perché 
ogni volta che riesco a scrivere un este- 


nuante programma farcito di codice 
macchina (vedi “Forzaquattro”, ricopiato 
a tutt'oggi ben QUATTRO volte, ma 
sempre resettatosi miseramente!!!) que- 
sto si cancella al primo RUN, facendomi 
maledire giornali, computer e tutto ciò 
che mi capita a tiro, provocandomi peri- 
colosi sbalzi del tasso di colesterolo!!! 
In più ignoro assolutamente l'uso della 
funzione USR e del comando CLEAR, 
mai usato! 
In definitiva mi sento limitato! 
Malgrado ciò la vostra rivista rimane la 
migliore nel campo, anche se le critiche 
appena presentate vi penalizzano ai miei 
occhi. 
Spero accettiate di buon grado le mie 
critiche e ascoltiate le mie richieste, che 
in fondo non dovrebbero discostarsi dai 
vostri progetti. Approfitto dell'occasione 
anche per dire che, a meno che miglioria- 
te la registrazione dei programmi per lo 
ZX81 е ne, almeno, raddoppiate il nu- 
mero, non mi converrà mai comprare 
rivista e cassetta, per poi trovare due - 
programmi registrati male per lo ZX81 
e NOVE bene per lo Spectrum (che non 
ho!!!). 1 
Altra piccola richiesta, che dovreste gira- 
re a Giovanni Tisi, autore di "Forzaquat- 
tro". 
Sembra un bellissimo programma, ma е 
impossibile da caricare: non va in FAST 
dopo la richiesta della colonna da gioca- 
re (linea 310), forse c'é un errore alla 
linea 1205, ma in ogni caso il program- 
ma collassa; mi é incomprensibile il senso 
delle linee 150, 180, 1002, che vi suppli- 
co di spiegarmi perché vorrei giocare an- 
ch'io! : 
Infine, se conoscete l'indirizzo di un Sin- 
clair club “ZX81 only" girategli il mio 
indirizzo o fatemelo sapere! 
Sinceramente affezionatovi 

lettera firmata - Palermo 


La firma è disgraziatamente illeggibile, 
mentre l’indirizzo probabilmente appa- 
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riva solo sulla busta (che, al solito, noi 
non vediamo: riportate sempre i vostri 
dati anche sulla lettera!). 

Venendo all'argomento in questione, 
non intendiamo certamente mettere in 
discussione le indubbie doti dello ZX81: 
cercheremo allora di precisare il perché 
allo Spectrum e stato riservato su SU- 
PERSINC uno spazio superiore. Come 
prima cosa, accenniamo al problema 
della registrazione su cassetta, che sullo 
2Х81 é incredibilmente critica rispetto 
al fratello maggiore, tanto da causare 
ogni mese svariati giorni di ritardo, im- 
piegati a verificare il corretto funziona- 
mento delle varie cassette-prova neces- 
sarie per riuscire a raggiungere un suffi- 
ciente grado di affidabilità. E questo av- 
viene per uno/due programmi al mese. 
Nonostante i problemi tecnici di questo 
genere, saremmo ugualmente disposti 
— l'abbiamo già detto — ad aumentare 
lo spazio dedicato allo ZX81, quando 
potremo farlo senza sacrificare eccessi- 
vamente la parte Spectrum. Occorre 
peró anche una risposta positiva dei let- 
tori “ottantunisti” che fino ad ora è 
mancata, tanto che se il rapporto tra 
programmi ZX81 e programmi Spec- 
trum dovesse essere stabilito in base 
agli arrivi di programmi, annunci, tele- 
fonate e lettere dei lettori, probabilmen- 
te un programma '81 su venti sarebbe 
già troppo. 

Riconosciamo, d'altra parte, una certa 
fondatezza alla critica secondo cui SU- 
PERSINC sarebbe povero di consigli 
tecnici sullo ZX81, e promettiamo che 
vedremo di porre rimedio alla cosa (an- 
che se lo studio dei programmi pubbli- 
cati rimane molte volte un aiuto insosti- 
tuibile). 

Entrando infine nello specifico, *Forza- 
quattro" e “Il castello dei dragoni” sono 
correttissimi; qualunque problema di 
funzionamento é da imputarsi a un cari- 
camento difettoso (purtroppo abbastan- 
za frequente per lo ZX81, specie con 
programmi contenenti linguaggio mac- 
china) o a errori di battitura. Per inciso, 
la foto che correda l'articolo di *Forza- 
quatro" mostra addirittura la scherma- 
ta relativa a una partita appena finita 
(ë infatti visibile la scritta “Но vinto"), 
cosa un po' difficile da ottenere con un 
programma malfunzionante... 


Alcuni dei programmi 


Istruzioni per l'(ab)uso 
Credo sarebbe molto interessante una 
rubrica dedicata a regole e segreti dei 
giochi, almeno i più famosi; per esempio 
in "Atic Atac" ci sono molti elementi del 
gioco dei quali é difficile capire l'uso, e 
in "Heathrow" le istruzioni sono talmen- 
te lunghe da rendere praticamente im- 
possibile il gioco. 

Roberto Delicati - Mantova 


Non sempre c'é il tempo di analizzare 
completamente un gioco; questo avvie- 
ne in casi eccezionali (vedere “Ге solu- 
zioni di Atic Atac" pubblicato su SU- 
PERSINC numero 5), che peraltro si 
cerca di sfruttare nella maniera miglio- 
re. Accade invece molto piü facilmente 
che si venga a conoscere un singolo 
trucco, una POKE “magica” о un bug 
nascosto, di cui si parla subito nello spa- 
zio di “Кеад & Write" o in qualche “ар- 
pabuchi" sparso per la rivista. Cerche- 
remo comunque di sollecitare ulterior- 
mente i giocatori folli della redazio- 
ne... 


ZX81 loading error 
Spett. redazione, 
devo assolutamente lamentarmi con voi 
per la pessima registrazione delle casset- 
te allegate ai vari numeri di SUPER- 
SINC. Mentre peró con alcuni program- 
mi (“Forzaquattro” e “Goldrace”) sono 
riuscito a effettuare le correzioni neces- 
sarie, con "Formula 1", ad esempio, no- 
nostante il mio impegno non ho combi- 
nato nulla, anche perché i codici macchi- 
na da riscrivere sono in buon numero. 
Siccome non la prima volta che questo 
accade con cassette ufficiali, quando leg- 
go articoli come "Pirateggiando" (nume- 
ro 4, pag. 5) mi viene da ridere. 
Aspettando una vostra risposta sulla rivi- 
sta, vi saluto cordialmente. 

Mario Artuso - Bessica (TV) 


Siamo perfettamente a conoscenza dei 
problemi connessi al caricamento delle 
cassette lato ZX81. Come già abbiamo 
scritto in queste pagine, purtroppo ë 
estremamente difficile riuscire a rag- 
giungere in proposito un grado di affida- 
bilità di registrazione paragonabile a 
quello dello Spectrum, anche perché ri- 
sulta relativamente frequente un carica- 


Attenzione! 


mento corretto... tranne per pochi byte 
— a volte perfino uno solo! -, che 99 
volte su 100 pregiudica il funzionamen- 
to del programma. Siamo arrivati a col- 
laudare i nostri master con tre registra- 
tori diversi, variando continuamente i 
parametri di duplicazione, nel tentativo 
di eliminare almeno parzialmente questi 
inconvenienti, comunque congeniti nel- 
lo ZX81. Cercheremo ancora di supera- 
re queste difficoltà; in ogni caso, all'in- 
terno della rivista riportiamo sempre 
tutto ció che occorre per avere comun- 
que il programma funzionante, anche a 
prezzo di doverlo digitare per intero. 


Cattiva memoria... 
Carissimo SUPERSINC, 
ho uno Spectrum issue 2 da 48K e sono 
indeciso se comperare l'espansione di 
memoria Memotech da 64K. Alcuni mi 
hanno detto che il mio Spectrum e ine- 
spandibile, altri il contrario. E possibile 
espanderlo a 112K? Cosa mi consigliate? 
E affidabile l'espansione Memotech? 
Vi chiedo, inoltre, di inviare рій copie 
della vostra rivista a quella piccola cittadi- 
na che è Isernia, altrimenti non riuscirò 
più a leggerla!!! 
E non è ancora finita: vi chiedo di pubbli- 
care qualche articolo sulla stampante Sei- 
kosha СР-505, perché vorrei acquistarla, 
ma non ne so ancora un gran che. Vi 
sarò molto grato se mi accontenterete, 
altrimenti... grazie lo stesso. 

Enrico Di Nezza - Isernia 


L'espansione Memotech è affidabilissi- 
ma: ha solo il piccolo difetto di... non 
essere compatibile con lo Spectrum, in 
quanto progettata per lo ZX81. Lo 
Spectrum raggiunge un tetto massimo 
teorico di 80K (parlando di espansioni 
interne, e non di eventuali RAM connes- 
se esternamente); ma, a meno di essere 
interessati ad applicazioni particolari (e 
di essere buonissimi programmatori), 
поп c’è ragione per non “accontentarsi” 
dei 48K, peraltro рій che sufficienti per 
la totalità del software esistente. 

Della Seikosha GP-50S parleremo piü 
avanti, sperando che intanto la nostra 
distribuzione migliori qualitativamente 
e che anche a Isernia possano venire 
accontentati tutti i sinclairisti... 


presenti su questo numero di Supersinc si avvolgono di 


particolari tecniche di programmazione, che possono provocare inconvenienti 
durante il caricamento del programma ad essi successivo. 
Per evitare problemi, vi consigliamo di effettuare un reset (spegnendo e 
riaccendendo il computer o digitando RUN USR O o per per chi ha uno 
Spectrum Plus, azionando l'apposito pulsante) prima di ogni LOAD. 
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а” 


сви 


180 km/h - 9.9 sec да 0 а 100 km/h 


La tentazione è forte. 96 CV pronti su ogni percorso, 
180 km/ h, 9.9 secondi da 0 a 100 km/h. Brillante, spor- 
tiva, decisa. Basta guardarla. Carreggiata larga, 
pneumatici radiali a profilo ribassato 185/60 HR13 su 
cerchi in lega da ó“ Profilo aggressivo, aderenza per- 
fetta. Basta guidarla. 
XR2 6 tecnologia Ford. Trazione anteriore, propul- 
sore 1.6 CVH, 4 cilindri monoalbero a camme in festa, 5 
marce, freni anteriori a disco autoventilanti, sospensio- 
ni rinforzate con barra stabilizzatrice posteriore. 
XR2. Dura, selvaggia, anzi dolcissima. Basta sedersi. 
Sedili anteriori пдогозатете ergonomici rivestiti con tes- 
suti esclusivi, sedile posteriore a ribaltamento frazionato, 
strumentazione e volante sportivi, orologio digitale 
multifunzione, fari ausiliari di profondità, vetri atermici, 
apertura elettrica del bagagliaio. 
XR2. Al di sopra delle parti. 


Tutte le vetture Ford sono coperte da garanzia 1-3-6 (un anno di 


garanzia estensibile a tre con “La Lunga Protezione” e sei anni di 
garanzia contro la corrosione perforante) e assistite in oltre 1000 
punti di servizio. Finanziamenti Ford Credit e cessioni in Leasing. 


La biblioteca рег ragazzi 
firmata 
Jackson 


GIOCHI CON 

IL COMPUTER 

II libro, рапа di giochi con il compu- 
ter, una volta tanto visti dalla parte 
del computer, е non dell'utente. 

In particolare spiega, in modo sem- 
plice ma preciso, come fa il compu- 
ter a giocare, come fa a produrre im- 
magini e suoni durante il gioco e co- 
me fa (in genere!) a vincere. 

Cod. 0060 Рад. 48 Lire 9.000 


Brian Reffin Smith 


IMPARIAMO 
A PROGRAMMARE 


Il libro fornisce le conoscenze essen- 
ziali per incominciare a programmare 
in BASIC su di un personal com- 
puter. 


Cod. 0180 Рад. 48 Lire 9.000 


PRIMI PASSI 
IN BASIC 


II libro propone l'apprendimento del 
linguaggio BASIC tramite lo studio e 
l'esame dettagliato di programmi già 
scritti. 

Cod. 007D Pag. 48 Lire 9.000 


Tony Potter - мог Guild 
I ROBOT 


Dopo una rapida panoramica su che 
cosa puo fare un robot, il libro pre- 
senta una serie di robot con funzioni 
particolari: i robot a braccio, i robot 
operai, i robot nello spazio, etc. 

Affronta poi il problema di come un 
robot риф essere programmato e 
controllato da un computer, e di co- 
me praticamente si realizza un robot. 


Cod. 0030 Рад. 48 Lire 9.000 


Judy Tatchell - Bill Bennett 


CONOSCERE 
IL PERSONAL : 


Il libro spiega che cosa si può fare 
con un personal computer, come si 
usa e come funziona. 

Cod. 008D Pag. 48 Lire 9.000 


Lynn Miring - lan Graham 


RIVOLUZIONE 
INFORMATICA 


Il volume è rivolto in particolare ai 
bambini, ma anche a tutti coloro 
che, presto o tardi, verranno coinvol- 
ti dalle nuove tecniche informatiche 
più come utenti che come operatori. 
Cod. 004D Pag. 48 Lire 9.000 


anzio ° 
personal са, 

mpy Ч 
вам „ Хом Pte, 


ritagliare (о fotocopiare) е spedire їп busta chiusa а: 
GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 


CEDOLA DI COMMISSIONE LIBRARIA 
VOGLIATE SPEDIRMI 


n? copie codice Prezzo unitario Prezzo totale 
p 


Totale 


口 Pagheró contrassegno al postino il prezzo indicato piü L. 3.000 per contributo 
fisso spese di spedizione. 
Condizioni di pagamento con esenzione del contributo spese di spedizione: 


Allego assegno della Banca Allego fotocopia del versamento 
su c/c n. 11666203 a voi intestato 


Allego fotocopia di versamento 
n? su vaglia postale a voi intestato 


Nome 


Cognome 
Via 
Cap. Città Prov. 


Data Firma 


io ri i . Si richiede l'emissi di fatt 
Spazio riservato alle Aziende. Si richie missione di fattura ORDINE 


MINIMO 
il L. 50.000 


pun 1:1] 4d: 


Іп seguito al successo riscosso 
da “Spectrum Shopping", SU- 
PERSINC vi propone un'altra 
carrellata sulle periferiche piü 
interessanti esistenti per Spec- 
trum e ZX81. 


L. Sinclair dispongono proba- 
bilmente della piü vasta gamma di 
periferiche nel mondo dei microcompu- 
ter. Di fatto ë possibile, con acquisti 
oculati, ottenere prestazioni proprie di 


sistemi di prezzo ben piü elevato. Per 


questo, eccoci di nuovo a proporvi una: 


selezione di quanto di meglio e oggi di- 
sponibile sul mercato; qualcosa anche 
da noi, tutto il resto sul mercato inglese. 
Quello che si cerca di dare qui e soprat- 
tutto una guida all'acquisto, un'idea su 
cosa e possibile trovare in giro. | com- 
menti sono perció a carattere generale 
e non possono avere la profondità di 
una vera e propria prova, questo anche 
per il poco spazio a disposizione. 
L'estensione del commento ad un parti- 
colare articolo, in ogni caso, non ne ri- 
flette assolutamente la qualità. Un'ulti- 
ma cosa da tener presente e che, sebbe- 
ne tutto il possibile sia stato fatto per- 
ché le informazioni contenute in queste 
pagine siano le piü aggiornate, l'evolu- 
zione in questo campo ë cosi rapida da 
rendere possibili non solo cambiamenti 
di prezzi ed indirizzi, ma persino la 
scomparsa di qualche ditta. Per questo 
siate- prudenti e controllate bene ogni 
cosa prima di inviare denaro. 


Unità di riconoscimento vo- 
cale 

Giungere a controllare la macchina 
semplicemente pronunciando i comandi 
è probabilmente il grande sogno di tutti. 
Certo, di strada da fare ce п’ё ancora 


tanta, ma due produttori hanno colto al 
volo la sfida e prodotto qualcosa di no- 
tevole. La William Stuart System è sta- 
ta la prima, con il suo BIG EARS. 
Questa unità è composta da un modulo 
piuttosto voluminoso e da un microfo- 
no. Il collegamento è realizzato per 
mezzo di una presa DIN, e nella confe- 
zione sono comprese dettagliate istru- 
zioni per il collegamento. 

Questa unità è comunque disegnata co- 
me parte di un sistema più complesso, 
comprendente anche un sintetizzatore 
musicale ed uno vocale, che si innesta- 


trad. e adatt. di Marcello Spero 
prima parte : 


Spectrum Shopping 2 


no alla prima unità molto semplicemen- 
te. | prezzi sono 49 sterline pià VAT 
(PIVA inglese) per la prima e 25 e 39 
sterline, rispettivamente, per le altre 
due, sempre piü VAT. 

Se pensate, peró, di poter pilotare un 
gioco di azione tipo arcade con questa 
unità, avete proprio sbagliato. 

Ogni volta che viene richiesto un input, 
infatti, essa attende di ricevere qualche 
segnale e quindi ricerca fra i dati in suo 
possesso qualcosa che gli si avvicini il 
piü possibile. І dati devono essere dispo- 
sti in modo particolare, con ciascuna 
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parola ripetuta più volte. La ricerca ed 
il riconoscimento di un comando impe- 
gnano la macchina per qualche secon- 
do, di piü se i possibili comandi sono 
molti. Perché il funzionamento resti ad 
un livello accettabile il loro numero non 
deve superare i dodici. 

Moltissime informazioni vengono fornite 
affinché il programmatore esperto pos- 
sa inserire questa opzione nei suoi pro- 
grammi. Il suo uso 8 possibile sia con 
software impostato a menu sia in pro- 
grammi tipo "adventure". La precisione 
- di funzionamento поп è comunque ele- 
vata. 

L’unità MICRO COMMAND della 
Orion Data ha un aspetto piü professio- 
nale. E composto dal solito contenitore, 
che si innesta direttamente allo Spec- 
trum, e microfono. 

La cassetta di software fornita con l'uni- 
tà comprende semplici “дате”, rivelan- 
do come quest'ultima sia indirizzata al- 
l'utente medio senza particolare espe- 
rienza, a differenza della Big Ears diret- 
ta all’appassionato più esperto. Per 
quanto riguarda il funzionamento del- 
l’unità il sistema è molto simile al prece- 
dente e soffre degli stessi problemi. 
L’unica differenza è nelle espansioni, 
che qui non sono previste. Il suo prezzo 
è di 49.95 sterline. 

Sebbene non siano perfette, in effetti 
queste due unità hanno procurato ore 
ed ore di affascinanti esperimenti. A 
parte il loro interesse come novità asso- 
lute, molti sono i possibili usi, non ultimo 
quello di aiutare i bambini a migliorare 
la loro pronuncia. Per chi fosse interes- 
sato al funzionamento del computer, 
poi, i motivi di interesse sono infiniti. 
Un consiglio finale può essere quello di 
considerare la Big Ears indicata per lo 
sperimentatore ed hobbista esperto, 
mentre la Micro Command adatta ad 
un uso più generale. 


Penne ottiche 


Al momento di andare in stampa sul 
mercato ne sono presenti già quattro. 
Della DK'Tronics si è parlato, ed in ter- 
mini decisamente favorevoli. E compo- 
sta dalla solita interfaccia da collegare 
allo Spectrum e dalla apposita penna. 
In tutte le prove ha funzionato ottima- 
mente e ci sentiamo di raccomandarla 
nei programmi a menu come strumento 
di scelta, oltre che per disegnare. Pen- 
na, interfaccia e software costano 
19.95 sterline. 

Qualche difficoltà e sorta invece nel fun- 
zionamento della penna ottica prodotta 
dalla Trojan. Questa unità si inserisce 
direttamente nella presa EAR e costa 
17.95 sterline completa di cassetta con 
software. 

Anche la CCI produce una penna ottica 
con interfaccia, ma non abbiamo a di- 
sposizione alcuna informazione che la 
riguardi. Eventualmente contattatela 
voi stessi. 

La DATAPEN della Datapen Micro- 
technology Ltd. è l’unità più costosa fra 
quelle sul mercato, a 29 sterline. Е com- 
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posta da una penna collegata in modo 
fisso ad un piccolo connettore che si 
inserisce dietro lo Spectrum. Si tratta 
di un connettore a "fondo cieco", che 
non permette il collegamento di ulterio- 
ri periferiche. 

La prova di funzionamento ha dato ri- 
sultati davvero impressionanti. L'unità 
fa davvero tutto ció che il costruttore 
promette, é semplice e piacevole da 
usare e le istruzioni sono chiare e facili 
da comprendere. Per finire, la cassetta 
di software inclusa 6 davvero diverten- 
te. 

Il prodotto originale era stato realizzato 


per il computer BBC, e bisogna dire che 
nella trasformazione non ha perso nulla, 
anzi. 

Raccomandiamo questa unità a coloro 
che hanno intenzione di compiere espe- 
rimenti di "computer aided design" o 
produrre software con selezioni a me- 
nu. 

Buona impressione ci ha fatto anche 
PRD DIGITAL TRACER. Si tratta di 
un'unità molto versatile, per il trasferi- 
mento di disegni dalla carta allo scher- 
mo. E difficile rendere giustizia con una 
semplice descrizione ad un simile pro- 
dotto, che comprende anche software 


per effettuare lo scaling, il painting, ecc. 
Due sono le versioni disponibili: la “рго- 
fessionale", a 75 sterline, capace di ac- 
cettare fogli fino al formato A3, e la 
"standard", che si ferma invece all'A4 
e costa 55.50 sterline. Sono disponibili 
modelli adatti allo Spectrum ed allo 
ZX81. 

La GRAFPAD è una penna luminosa, 
che comprende anche una speciale ta- 
stiera, manuale e programma. Sebbene 
non abbiamo avuto l'occasione di ve- 
derla funzionare, le informazioni che ci 
sono state inviate sembrano indicarla 
come un altro aiuto per il disegno. Pur 
non conoscendone il funzionamento, ci 
sembra alquanto cara a 143.75 sterli- 
ne. Speciali sconti sono comunque pre- 
visti per scuole ed enti educativi, che 
probabilmente costituiscono l’obiettivo 
principale di questo prodotto. 

Lo STACK LIGHT RIFLE è una carabi- 
na in plastica, provvista di cavo ed in- 
terfaccia, collegata al connettore poste- 
riore dello Spectrum. E divertente е 
funziona bene, dopo che abbiamo traffi- 
cato un ро” con i comandi del televisore 
per ottenere un adatto bilanciamento 
dei colori. Ovviamente, potrete usarla 
per un unico scopo, e cioé il tiro a se- 
gno. 

Personalmente consideriamo questo 
prodotto come qualcosa di cui ci si stan- 
ca in fretta, ma se cercate un modo 
sicuro per esercitarvi al tiro al bersaglio, 
od una novità per una festa, è il caso 
che vi interessiate per maggiori dettagli. 
Lo Stack Light Rifle costa 29.95 sterli- 
ne. 


Joystick 


Scegliere un joystick è una delle impre- 
se più ardue: il loro numero è davvero 
elevato! 

A differenza di molte altre periferiche, 
il loro collegamento è standard, cioé del 
medesimo tipo su quasi tutti i modelli. 
La scelta non è quindi limitata in alcun 
modo. 

Il tipo di joystick scelto dipende intera- 
mente dai vostri gusti. Si va da quelli 
di grandi dimensioni, che richiedono 
l’azione del polso, a quelli più piccoli, 
che si comandano con pollice ed indice. 
Anche qui troviamo i prodotti particola- 
ri, come il touch pad, il track ball ed il 
recentissimo RAT. 

Praticamente ogni costruttore produce 
o adotta un particolare joystick, e -la 
descrizione di tutti i modelli ci portereb- 
be via ben più dello spazio a disposizio- 
ne. Quindi, se non troverete il vostro 
favorito, perdonateci! 

La parola d’ordine per i costruttori di 
joystick sembra essere “ergonomico”. 
Alzi la mano chi sa cosa vuol dire davve- 
ro! Molti pensano che significhi “model- 
lato sulla forma della mano”, o qualcosa 
di simile. Il dizionario riporta invece: 
“Studiato per la massima efficienza del- 
la persona nell’ambiente di lavoro”. Co- 
me dire che un joystick è stato disegna- 
to dopo aver guardato qualcuno gioca- 
re agli invader per un paio d'ore...in 


realtà è una bella parola che vuol dire 
poco. 


Kempston 


Questa ditta ha inventato il controllo 
joystick per lo Spectrum, ed è con vero 
piacere che ne ospitiamo la descrizione 
dei prodotti. 

Il suo Standard Joystick è vecchio quan- 
to lo Spectrum, eppure fa ancora un'ot- 
tima figura. Ha un gambo molto corto, 
sormontato da un’impugnatura sferica. 
Il miglior controllo si ottiene spostando- 
lo con pollice e medio, mentre l’indice 
è appoggiato sulla sfera. Due pulsanti 
di fuoco, posti ai due lati, lo rendono 
adatto sia ai destri che ai mancini. Re- 
centemente ribattezzato PRO 5000 
conta numerosissimi appassionati e co- 
sta 13.50 sterline. 

Recentemente sono stati introdotti il 
PRO 1000 ed il PRO 3000. Possiedono 
ambedue la medesima base, con un uni- 
co lungo pulsante di fuoco, che va da 
un lato all'altro. La differenza sta nel- 
l'impugnatura: nel PRO 1000 é del tipo 
delicato, mentre il PRO 3000 possiede 
la classica manopola con un pulsante 
supplementare alla sommità dell'impu- 
gnatura. 

Iloro prezzi sono rispettivamente 10.99 
e 12.75 sterline. 

Secondo noi 6 difficile battere il vecchio 
PRO 5000, sebbene il 1000 sia piace- 
vole da usare. Sia il 1000 che il 3000 
ci sono sembrati un ро” “plasticoni”, ed 
a conferma di questo il pulsante supple- 
mentare del 3000 dopo poco tempo si 
e bloccato. 


Suncom 
Dispone della miglior gamma di joystick 
che ci sia capitato di vedere. Questo 
non vuol dire che non ce ne siano di 
meglio, ma solo che noi non ne abbiamo 
ancora visti. 

Tutti i suoi joystick sono robusti e pe- 
santi, e danno immediatamente una 
sensazione di solidità. Costruiti per Ata- 
ri e Commodore sono un po' piü costosi 
degli altri, ma la loro durata e per lo 
meno di due terzi superiore a quella di 
modelli pià economici. SLIK STIK si 
chiama il modello di prezzo piü contenu- 
to, 9.95 sterline, rosso e nero con una 
impugnatura sferica ed un solo pulsante 
di fuoco. 

Lo STARFIGHTER ha la stessa base e 
lo stesso pulsante di fuoco, ma un'impu- 
gnatura del tipo pollice-indice, arroton- 
data alla sommità e priva della sfera, 
13.95 sterline. 

AC 2 (Totally Accurate Controller) ë il 
modello top della gamma, veramente 
solido ed elegante. Se volete un solido, 
preciso strumento, che risponda esatta- 
mente ai vostri comandi, fate un piccolo 
sforzo economico ed acquistate questc. 
18.95 sterline. 

| JOY SENSOR è molto simile ai co- 
mandi usati dalla consolle Intellivision. 
E composto da un contenitore rettango- 
lare provvisto di un sensore circolare 
ed un pulsante di fuoco allungato. Ri- 
corda un po' lo ZX8T, ed anche se pare 
piü robusto puó suscitare qualche 
preoccupazione (sto premendo trop- 
po?). Se vi interessa qualcosa di incon- 
sueto, il suo prezzo ë di 29.95 sterline. 
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RAT 


Secondo la Cheetah Market avreste an- 
che potuto evitare di leggere tutto il 
resto. Questa ditta propone infatti il suo 
Remote Action Transmitter come l'ulti- 
mo grido in fatto di joystick. 

Noi non siamo troppo d'accordo. Si 
tratta senz'altro di un prodotto origina- 
le, che usa i raggi infrarossi per fare a 
meno del cavo di collegamento. Molti 
appassionati degli arcade, peró, preten- 
dono joystick che possano essere impu- 
gnati e mossi con forza, ed il delicato 
comando apollice del RAT non puó cer- 
to dare questa sensazione. Dobbiamo 
comunque ammettere di preferirlo a 
tanti altri joystick di prezzo inferiore. 
Il RAT costa 29.95 sterline compresa 
l'interfaccia, Kempston compatibile e 
provvista di connettore per altre perife- 
riche, che da sola lo rende un acquisto 
interessante. 

Dalla Emax Computing ci viene un nuo- 
vo “super joystick", l'ARCADE PRO- 
FESSIONAL. Se vi interessa una stabili- 
tà “rocciosa”, una sicura durata ed un 
aspetto elegante, non potete non esser- 
ne attratti. 


INDIRIZZI 


A 


2... 


дала; вази: 


Si tratta infatti di un oggetto decisamen- 
te voluminoso: 36x20x13 cm e pesante 
ben un chilo e 880 grammi sulla sua 
base di gomma antisdrucciolo. Senz'al- 
tro la sua meccanica avrebbe potuto 
essere inserita in un contenitore grande 
un quarto di questo, ma l'arcade vuole 


AGF Hardware, 26 Van Gogh Place, Bognor Regis, West Sussex PO22 
9 BY Addpac Electronics, 22 Watling Steet East, Towchester, Northants 


NN12 7 AF 
c 


Consumer Electronics, Failsworth, Manchester M35 o HS Ceetah marke- 


ting, 359 The Strand, London WC2 


DK'Tronics, 23 Sussex Road, Gorleston, Great Yarmouth, Norfolk 


East London Robotics, Gate 11, Royal Albert Docks, London E16 


F 


Fox Electronics, 1412 Abbey Road, Basingstoke, Hants 


Kempston Micro Electronics, Unit 30, Singer Way, Woburn Road Indu- 
strial Estate, Kempston, Bedford MK42 7 AF 


P 


Protek Computing, 1 A Young Square, Brucefeld Industrial Estate, Li- 


vingston, West Lothian 


Stonechip Electronics, Unit 9, Brook Trading Estate, Deadbrook Lane, 
Aldershot, Hants GU12 4ХВ 
Sinclair Research, Stanhope Road, Camberley, Surrey GU15 3 PS 


14 . suPERSINC® 3/85 


121939911111 


424443 


anche queste manifestazioni esteriori. 
Dispone di controllo a due mani, impu- 
gnatura e due pulsanti per il fuoco rapi- 
do. Sia l'una che gli altri rispondono 
bene e sono sensibili, quindi niente pol- 
so indolenzito o dita doloranti. Certo, 
avere l'impugnatura a sinistra ed i due 
pulsanti a destra puó non risultare co- 
modo a tutti, anche se si fa presto ad 
abituarsi. Potrete chiedervi a questo 
punto cosa ci stanno a fare due pulsanti 
identici sullo stesso lato. La stessa do- 
manda ce la siamo posta noi, ma poi ci 
siamo ricordati del nome, ed allora... 
In effetti, la Emax offre un pezzo di 
hardware che mantiene le sue promes- 
se, tiene fede al suo nome e surclassa 
molti concorrenti. Noi l'abbiamo usato 
con l'interfaccia della DK'Tronics. 


In breve 

Probabilmente i più popolari fra i joy- 
stick, e senz'altro i piü facili da reperire, 
sono il QUICKSHOT I e II. 

Sono provvisti di un'ampia impugnatu- 
ra a pistola, con pulsanti di sparo alla 
sommità ed alla base. Il II possiede inol- 
tre un pulsante supplementare а “gril- 
letto" ed un blocco per il fuoco rapido, 
che richiede peró un'interfaccia adat- 
ta. 

Си circa 7.50 sterline il І е 10.95 
il II. 

Da poco posto in commercio dalla Coo- 
ckridge Computer Supplies 8 lo ZIP- 
STICK, un joystick dalla lunga impu- 
gnatura, adatto ad un uso pesante. Seb- 


-beng il suo aspetto sia convenzionale, è 


costruito con materiali molto robusti e 
possiede una garanzia di due anni. 

La nostra esperienza, sebbene di breve 
duratà, ne conferma la robustezza e la 
sensazione di sicurezza. L'unica cosa 
sconcertante ë il “clunk” emesso dal 
pulsante superiore di fuoco. Non si trat- 
ta di un semplice pulsante extra, ma di 
una stecca in acciaio che percorre tutta 
l'impugnatura, fino al pulsante nella ba- 
se. 

A 12.95 sterline ci sembra valga la pe- 
na di prenderlo in considerazione. 

La Electrotech produce ип joystick 
provvisto di ben tre grossi controlli a 


pulsante: meglio degli arcade da bar! 
A 43.70 sterline l'unità contiene anche 
2K di RAM e si inserisce direttamente 
dietro lo Spectrum. 

Solo due sono le parti in movimen- 
to, i due piccoli pulsanti di fuoco, nel 
TRICKSTICK, un nuovo sostituto del 
joystick. Lo impugnate e muovete il pol- 
lice su due fototransistor per la destra- 
sinistra; l'indice si muove invece su altri 
due per l'avanti-indietro. La East Lon- 
don Robotics afferma che questo siste- 
ma б in grado di garantire una precisio- 
ne mai raggiunta. Kempston compatibi- 
le, se ne possono usare fino a otto con- 
temporaneamente. 28 sterline. 
Proiettato nel futuro e l'aspetto del TRI- 
GA COMMAND. Proveniente dagli Sta- 
ti Uniti, la vera patria degli arcade, que- 
sto joystick ha i pulsanti di fuoco al po- 
sto giusto per far fuori quei dannati alie- 
ni, e tutte le parti mobili interne sono 
fatte di nylon, ben piü solido della solita 
plastica. 

Viene venduto completo di interfaccia, 
pronto ad essere collegato allo Spec- 
trum. Costa 19.95 sterline tutto com- 
preso. 


Interfacce per joystick 


Un altro campo in cui la scelta è proble- 
matica. La rassegna è anche qui neces- 
sariamente schematica. 

Le interfacce tendono a ricadere in due 
grandi categorie: quelle fisse e quelle 
programmabili. 

Il tipo fisso controlla il gioco per mezzo 
dei tasti cursore, od usando il protocollo 
Sinclair, o ancora il sistema Kempston 
o addirittura una combinazione dei tre! 
La più recente interfaccia Kempston, 
ad esempio, dispone di tre prese per 
joystick. La prima può funzionare con 
lo standard Kempston o con i tasti cur- 
sore (spesso chiamati sistema Protek). 
La seconda e la terza dispongono inve- 
ce del sistema Sinclair. Si tratta di un’in- 
terfaccia davvero notevole, che funzio- 
na in modo perfetto. Usata insieme ad 
.interfaccia 1 e Microdrive, comunque, 
provoca qualche stranezza. Al momen- 
to non sappiamo dire se si tratti di un 
difetto dell’interfaccia Kempston o Sin- 
clair. Interessante per 19.95 sterline. 
Ecco l’ultimo modello di interfaccia del- 
la Protek. Dispone di un'unica presa, 
ma un interruttore consente di passare 
da uno standard all’altro. E una delle 
nostre preferite, e costa 19.95 sterli- 
ne. 

Senz'altro in questo campo la ОК Тго- 
nics è uno dei leader, con la sua inter- 
faccia a due sistemi e due prese, che 
permette l’uso dello standard Kemp- 
ston e dei tasti cursore per sole 13 ster- 
line. 

E se il vostro gioco preferito non utilizza 
nessuno di questi standard, ma per 
esempio i tasti ZX e MK? 

In questo caso la soluzione è l’acquisto 
di una delle interfacce programmabili 
disponibili sul mercato. Si tratta sostan- 
zialmente di variazioni di due sistemi 
fondamentali, e cioé l’imitazione della 


Proviamo? 
di Marcello Spero 


Piccola guida all'acquisto di prodotti inglesi per corrispon- 
denza 


Come abbiamo già avuto occasione di scrivere in altra occasione, il tempo 
dei grandi imbrogli per corrispondenza pare ormai tramontato, e comun- 
que questo fenomeno non ha mai interessato la Gran Bretagna, paese 
in cui il consumatore e seriamente tutelato (guarda un po'!). 
L'acquisto per corrispondenza, anche internazionale, non presenta alcu- 
na particolare difficoltà, a patto di fare le cose nel modo corretto, senza 
precipitazione o dimenticanze. 

Prima di sbilanciarsi ad inviare denaro, innanzitutto, specie se la spesa 
ё elevata, 8 consigliabile scrivere alla ditta venditrice del prodotto cui 
siete interessati per ottenere ragguagli sul prezzo aggiornato, su eventuali 
maggiorazioni per l'invio all'estero o (ë possibile!) riduzioni dovute al 
risparmio del VAT, l'IVA inglese cui gli acquisti effettuati da stranieri 
non sono soggetti. Cosi facendo vi metterete al sicuro anche contro 
eventuali cambi di indirizzo, che nel caso di invio di denaro creerebbero 
non poche complicazioni. Inviare il denaro solo quando si 8 sicuri della 
reale possibilità di acquisto e essenziale, anche per evitare la lunghissima 
prassi del ritorno al mittente dei soldi, nel caso di un rifiuto. 

Per assicurarvi una risposta accludete alla vostra lettera una busta con 
già scritto il vostro indirizzo ed un buono internazionale di risposta, 
reperibile all'ufficio postale. 

Per l'invio materiale di quanto dovuto il metodo che si e rivelato piü 
comodo quello del vaglia postale internazionale. Per compiere questa 
operazione ë necessario recarsi all'ufficio postale centrale del proprio 
luogo di residenza, muniti di un documento di riconoscimento valido, 
oltreché naturalmente dell'importo che si vuole spedire. Allo sportello 
apposito si chiederà un modulo per richiesta di vaglia internazionale e 
lo si compilerà. Tutto il resto verrà fatto dall'impiegato addetto, che 
calcolerà anche l'importo dovuto in lire, applicando il tasso di cambio in 
vigore in quel momento. Il costo di ogni operazione di questo tipo puó 
variare dalle 1500 alle 3000 lire, a seconda dell'entità dell'importo. Nel 
caso, poco probabile, di un superamento dell'importo massimo inviabile 
con un unico vaglia, 2 possibile comporre la cifra necessaria con piü 
vaglia separati. 

A questo punto inviate una lettera di ordinazione, specificando chiara- 
mente ció che volete ed accludendo una fotocopia della ricevuta del 
vaglia. Questo renderà possibile l'invio del materiale prima del ricevimen- 
to del denaro da parte della ditta interessata, ricevimento che avverrà 
non prima di una ventina di giorni dalla data del vaglia. 

Per quanto riguarda la dogana possibile, anche se piuttosto improbabi- 
le, che nel caso di pacchi di elevato valore dichiarato vi venga richiesto 
il pagamento dell'IVA; pazienza! 

Nell'eventualità, sempre ipotizzabile, che non siate soddisfatti di ció che 
avete ricevuto, infine, non esitate a scrivere a chi ve l'ha venduto, chie- 
dendo cosa fare. Nel caso si renda necessaria, non vi verrà senz'altro 
rifiutata la sostituzione dell'articolo. 

Una raccomandazione finale riguardo alla corrispondenza: ricordatevi di 
scrivere in inglese, eventualmente facendo correggere la brutta copia da 
qualcuno che lo sappia bene, e non dimenticate il vostro indirizzo! 


tastiera o il controllo a mezzo software 
o ROM incorporata. I loro svantaggi 
principali stanno nel maggior costo e nel 
maggior dispendio di tempo per pro- 
grammarle. 

Fra quelle che abbiamo potuto provare 
siamo rimasti impressionati dalla FOX 
INTERFACE, con il suo software incor- 
porato in una EPROM, utilizzabile an- 
che per altri scopi. E una delle piü sem- 
plici da usare e trova la nostra piu com- 
pleta approvazione. 

Una posizione elevata nella lista delle 
nostre preferenze la occupa anche la 
АСЕ Interfaces. Si tratta di una delle 
poche ditte, se non l'unica, a vendere 
interfaccia e joystick per lo ZX81 e a 
sole 9.95 sterline! 


La loro nuova PROTOCOL 4 INTER- 
FACE ci sembra piuttosto ben riuscita, 
libera dal groviglio di fili che affliggeva 
il modello precedente, ma non abbiamo 
ancora avuto l'occasione di provarla. 
Ancora la DK'Tronics, acquisto interes- 
sante a 22.95 sterline, provvista di con- 
nettore di espansione e garantita com- 
patibile con i Microdrive. 


In breve 

La Stonechip Electronics produce la 
PROGRAMMABLE JOYSTICK IN- 
TERFACE, molto semplice da pro- 
grammare per i giochi più diversi, poi- 
ché il software relativo non è su casset- 
ta, ma in una EPROM. 24.95 sterline. 
La FOX ELETTRONICS JOYSTICK 
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INTERFACE contiene una RAM di tipo 
CMOS, alimentata da un piccolo accu- 
mulatore, per conservare nomi e detta- 
gli di 16 giochi diversi per tre mesi, a 
detta del costruttore. Puó essere utiliz- 
zata anche come pseudo ROM per con- 
servare routine di uso frequente. Inte- 
ressante, a 28.50 sterline. 

La RAM ELECTRONICS JOYSTICK 
INTERFACE 6 probabilmente la piü 
economica sul mercato. Compatibile 
Kempston, 6 coperta da una garanzia 
di due anni. La RAM Electronics affer- 
ma che il suo prodotto puó, a differenza 
di molti altri, sfruttare l'opzione di fuoco 
rapido disponibile sul Quickshott II. Co- 
sta 9.95 sterline. 

L'interfaccia della Sinclair à sul punto 
di divenire lo standard per questo tipo 
di apparecchi. Puó accettare due joy- 
Stick, e funziona con i tasti da 1 a 0. 
Cartucce ROM possono essere inserite 
in un'apposita feritoia, ed esiste una 
buona scelta di software di questo tipo. 
Unico difetto il fatto che solo la ZX Prin- 
ter possa inserirsi sul suo connettore di 


ERRATA CORRIGE 


Nell'articolo «Come realizzare un'inter- 
faccia-seconda parte» pubblicato su Su- 
persinc numero 6 (Dicembre 1984), due 
tabelle (le figure 16 e 18) contengono al- 


cuni errori. Le pubblichiamo corrette, 


di 


seguito scusandoci con i lettori dell'in- 


conveniente. 


espansione, di misura ridotta. 19.95 
sterline. 

La Cambridge Computing Intelligent In- 
terface e un'interfaccia programmabile 
che puó funzionare con qualsiasi joy- 
stick. Peccato che il programma debba 
essere caricato da cassetta ed i tasti 
nuovamente selezionati ogni volta che 
si accende il computer o si ë usato un 
gioco diverso. Sono cose che fanno per- 
dere tempo. La sua linea non e meravi- 
gliosa, ma il prezzo 8 interessante, per 
un'interfaccia programmabile: 24 sterli- 
ne, 29.90 compreso il joystick. 
Disponibile dalla Addpac Electronics e 
l'Addpac 4511, joystick ed interfaccia 
per lo Spectrum. Completo di program- 
ma dimostrativo, costa 18.99 sterline. 
Il Pickhard Controller e un congegno 
che vi permette di collegare qualsiasi 
joystick allo Spectrum o ZX81. Potete 
inoltre selezionare quali tasti emulare. 
Il suo prezzo ë di 20.45 sterline, e se 
volete acquistare anche il joystick lo pa- 
gherete 7.50. 


fig. 18 Tabella dei collegamenti per il 74LS273-374 


con la CPU (versione minima) o con le 
uscite del 74LS245 (versione completa) 


CPU DO D1 D2 
245 18 17 16 
3 4 T 


uscite verso l'esterno 


OUTO OUTI OüT2 ` UT 
2 5 6 9 
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D3 
15 
8 


OUT4 


12 


con |а CPU: 


RD IORQ 
1 2,5 


con altri integrati: 
74LS273-374 11 

6 
74LS244 


alimentazione: 


十 
14 M 


fig. 16 Tabella dei collegamenti per 
il 74LS27 


alimentazione 


273 
374 


con altri integrati 


74LS27 6 
11 


А 


ВОДИ РУХ 
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Linguaggio macchina? No, grazie! 


di Marcello Spero 


Piccolo corso di 1/m per tutti i 
possessori di Spectrum e ZX81 


Perche? 
Bi? sfogliare una qualsiasi rivista 
che tratti della programmazione di 
microcomputer per rendersi conto che 
е ogni giorno piü folta la schiera di colo- 
ro i quali, non piü soddisfatti delle possi- 
bilità offerte dal BASIC, il linguaggio 
normalmente residente per i piccoli 
computer, si gettano nel vortice del lin- 
guaggio macchina. 
Ma cosa significa realmente "linguaggio 
macchina"? E che differenza се fra 
questo e l'Assembly? E poi, si dice As- 
sembly o Assembler? E quando, e per- 
ché, ë meglio del BASIC? A questi, ed 
a tutti gli altri interrogativi che prende- 
ranno forma in seguito, spontaneamen- 
te o suscitati da voi con le vostre lettere, 
verrà data risposta nel corso di questa 
serie. 
Quella che troverete in queste pagine 
non sarà certo una trattazione teorica, 
completa ed esauriente, dell'argomen- 
to. Risponderà piuttosto al famoso “Se 
faccio, capisco"; quindi poca teoria, 
molti esempi e subito le mani sulla mac- 
china, per provare (e sbagliare, all'ini- 
zio). 


Di cosa si tratta 


Il linguaggio macchina, prima di tutto, 
non ë “ип” linguaggio, ma “il” linguag- 
gio; è cioè l'unica lingua comprensibile 
direttamente dall’unità centrale di un 
elaboratore, grande o piccolo che sia. 
Questa sua caratteristica fondamentale 
ha come conseguenza diretta il fatto 
che esistono tanti linguaggi macchina 
quanti sono i diversi tipi di unità centra- 
le, e quindi un'infinità. Alcuni sono mol- 
to simili fra loro, altri diversissimi, a se- 
conda di ciò che il progettista si è propo- 
sto. Ciascuna unità centrale è indissolu- 
bilmente legata al suo linguaggio mac- 
china: nasce con lui e morirà con lui, 
senza poterlo cambiare, poiché è stata 


NN X 
` м 
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"modellata" per quel linguaggio. 

Un linguaggio macchina ë caratterizzato 
da un certo numero, normalmente piut- 
tosto elevato, di “codici operativi", cia- 
scuno dei quali corrisponde ad una delle 
operazioni elementari che quella deter- 
minata unità e in grado di eseguire. 
Un codice operativo e contraddistinto 
da una certa combinazione di bit (BIna- 
ry digiT, cifra binaria); piü codici opera- 
tivi, conservati l'uno di seguito all'altro 
in memoria, formano un programma. 
Perché l'unità centrale possa eseguire 
un programma occorre darle il suo indi- 
rizzo di inizio, cioe l'indirizzo di memoria 
che contiene il primo codice operativo 
del programma. Le operazioni, indicate 
dai codici operativi, che un'unità centra- 
le é in grado di eseguire sono estrema- 


РИ. 


ТАИТ А 


2 Ф 


mente elementari; riguardano trasferi- 
menti di dati da una determinata loca- 
zione di memoria all'unità centrale e vi- 
ceversa, addizioni o sottrazioni di nume- 
ri interi, confronti fra numeri interi e 
manipolazione di bit. La semplice istru- 
zione BASIC LET а-1.54 corrisponde, 
in linguaggio macchina, ad una sequen- 
za pazzesca di codici- operativi. Occor- 
rerà infatti: 

— trasformare il numero 1.54 in una 
forma tale da poter essere rappre- 
sentato da soli numeri interi; questa 
forma ë la notazione esponenziale; 

— rintracciare l'area di memoria occu- 
pata dalle variabili ed in questa con- 
trollare se esiste già una variabile 
chiamata "a"; 

— se questa esiste, nello spazio di me- 
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moria a lei riservato andra inserito il 
valore 1.54 nella forma esponenziale 
precedentemente ottenuta; 

— se invece non esiste alcuna variabile 
a, Occorre creare uno spazio in posi- 
zione opportuna, contrassegnarlo 
con "a" e quindi procedere come al 
punto precedente. 

Notevole, vero? E consideriamo che 
ognuno dei punti elencati corrisponde 
mediamente ad una cinquantina di codi- 
ci operativi. Inoltre non abbiamo consi- 
derato tutti i controlli di errore che ven- 
gono normalmente effettuati. С’ё da 
domandarsi perció quale sia la conve- 
nienza dell'uso di un linguaggio che ri- 
chiede tante istruzioni per eseguire ope- 
razioni cosi semplici, quando c’è chi ha 
già pensato a renderci la vita рій facile, 
realizzando "traduttori" che consentono 
l'uso di linguaggi come il BASIC, piü 
chiari, più potenti (dove, cioè, basta un 
numero ridotto di istruzioni per eseguire 
operazioni anche molto complesse) e 
piü facili da ricordare. 
Due sono le ragioni fondamentali che 
spingono talvolta all'uso del linguaggio 
macchina in luogo dei linguaggi evoluti. 
La prima 6 l'impossibilità di compiere, 
con questi ultimi, alcune operazioni par- 
ticolari, diverse a seconda del tipo di 
computer. Usando il BASIC (od un 
qualsiasi altro linguaggio evoluto), infat- 
ti, facciamo l'equivalente di ciò che è, 
in termini edilizi, la costruzione di una 
casa a partire da moduli prefabbricati. 
Questo sistema va molto bene . nella 
maggioranza dei casi, ma se c’è bisogno 
di una struttura molto particolare, non 
realizzabile con i moduli, l’unica soluzio- 
ne è ricorrere ai vecchi mattoni: ne oc- 
correranno di più, ma il risultato sarà 
esattamente quello che volevamo noi. 
Il secondo motivo che può spingerci sul- 
la strada del linguaggio macchina è la 
velocità. 
Essendo sicuri di ciò che vogliamo otte- 
nere, e dell’esattezza di dati ed opera- 
zioni, possiamo sostituire ad un gruppo 
di istruzioni BASIC, che richiedono tem- 
po per essere tradotte e tempo per es- 
sere eseguite sotto forma di migliaia di 
codici operativi, una sequenza di lin- 
guaggio macchina che esegua le mede- 
sime operazioni. Il vantaggio sta nel fat- 
to che in questo modo eliminiamo la 
fase di traduzione, i controlli di errore 
(pericolosi, se tutto non è in ordine...) 
e, cosa più importante, le interconnes- 
sioni fra un’istruzione e l’altra. Queste 
ultime sono sempre piuttosto comples- 
se e “spigolose” in termini di tempi di 
esecuzione, proprio come lo sarebbero 
le connessioni fra moduli prefabbricati 
a confronto con le linee morbide di una 
casa di mattoni. 
Da tutto questo discorso emerge l’inuti- 
lità, per l’utente comune, di realizzare 
interi programmi in linguaggio macchi- 
na, che sarà invece utilizzato solo in 
quei casi particolari in cui è necessa- 
rio. 

Abbiamo visto come i vari codici opera- 

tivi di un programma in linguaggio mac- 
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china siano composti da sequenze di bit. 
Un tale tipo di rappresentazione, se pu- 
re molto adatta ad una memoria, non 
è certo di uso agevole per noi esseri 
umani. Per questo è stato creato un al- 
tro tipo di rappresentazione, che attri- 
buisce a ciascun codice una sigla, detta 
mnemonica, corrispondente all’abbre- 
viazione del nome dell’operazione svol- 
ta. Avremo così “add” per l’addizione, 
“sub” per la sottrazione (non dimenti- 
chiamo che le abbreviazioni si riferisco- 
no ai nomi inglesi) e così via. 

Un programma scritto in questo modo 
è un programma in linguaggio Assem- 
bly. L'Assembly è sempre linguaggio 
macchina, i cui codici operativi sono 
però espressi in forma di mnemoniche. 
Un apposito programma, detto Assem- 
bler, si incaricherà di effettuare la con- 
versione mnemonica-codice, necessaria 
per poter avere in memoria un linguag- 
gio macchina eseguibile. 

La differenza fra un Assembler ed un 
compilatore od interprete (si chiamano 
così i programmi di traduzione dei lin- 
guaggi evoluti) è che mentre questi ulti- 
mi devono trasformare ciascuna istru- 
zione in una moltitudine di codici opera- 
tivi, diversi a seconda del valore dei vari 
parametri dell’istruzione stessa (si pensi 
alla differenza fra LET a=3 e LET 
a=a+5), gli Assembler eseguono un 
compito enormemente più semplice, 
traducendo ciascuna mneomonica in un 
unico codice, e ad una stessa mnemoni- 
ca corrisponderà sempre uno stesso co- 
dice operativo. 


Per quanto ci riguarda... 


Finora abbiamo considerato il linguag- 
gio macchina in generale, sottolineando 
ciò che c’è di comune per tutti i compu- 
ter. D’ora in poi prenderemo invece in 
considerazione il linguaggio macchina 
dello Z80, che è l’unità centrale dello 
Spectrum e dello ZX81. 

In questi computer, come del resto in 
tutti quelli moderni al di sotto di una 
certa dimensione, l’unità centrale di ela- 
borazione (detta, con abbreviazione dal- 
l'inglese, C.P.U.) è costituita da un uni- 
co componente elettronico, un grosso 
circuito integrato detto microprocesso- 
re. Quello montato dalle due macchine 
Sinclair e stato creato dalla Zilog e si 
chiama appunto Z80. 

Lo Z80 possiede un *vocabolario" di 
oltre 800 codici operativi, rappresentati 
da sequenze di bit (a proposito, à chiaro 
a tutti che un bit puó assumere solo due 
valori, 1 e 0?) in numero variabile da 8 
a 32. Poiché é previsto che questa unità 
funzioni in collegamento con un tipo di 
memoria le cui locazioni possono conte- 
nere 8 bit ciascuna, ciascuna sequenza 
di bit che rappresenta un codice viene 
suddivisa in gruppi di otto, detti byte. 
Avremo cosi codici da uno, due, tre o 
quattro byte. 

Sempre per facilitare le cose a noi pove- 
ri esseri umani, una sequenza di 8 bit 
puó esssere espressa anche in forma di 
numero. Il numero di possibili combina- 


zioni per otto bit è 256, cioè 2 18 (ogni 
bit puó assumere due stati). 

Alla numerazione decimale, da 0 a 255, 
si preferisce comunque quella esadeci- 
male, da 00 a FF. I numeri esadecimali 
vanno, come dice il nome, ad “esadeci- 
пе”: 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F; 
seguono 10,11..., 1F e cosi via. Il nume- 
ro 11 esadecimale corrisponde perció 
a 17 decimale. Un tale tipo di numera- 
zione riflette meglio l'andamento delle 
varie combinazioni all'interno degli otto 
bit. Noi useremo comunque, per lo me- 
no nei primi esempi, la notazione deci- 
male, anche se meno corretta. 

Lo stesso discorso vale per i dati, codifi- 
cati in memoria esattamente allo stesso 
modo dei codici, cioe sotto forma di va- 
lori compresi fra 0 e 255. La distinzione 
fra dati e programma avviene quindi 
non in base al valore, ma alla posizione 
in memoria; maggiori informazioni рій 
avanti. 

Per compiere qualsiasi operazione su di 
un dato, comunque, lo Z80 deve prima 
di tutto trasferirlo dalla locazione di me- 
moria in cui esso si trova ad uno dei 
suoi registri interni. Le uniche operazio- 
ni possibili con la memoria, infatti, sono 
il recupero e l'invio di dati; tutte le altre 
devono essere svolte fra i registri (esi- 
stono anche qui le eccezioni, comunque 
di importanza marginale e di cui ci occu- 
peremo in seguito). 

Questi registri non sono nient'altro che 
locazioni a 8 bit, uguali in tutto e per 
tutto a quelle della memoria, che si tro- 
vano all'interno del processore. In As- 
sembly ci si riferisce loro come a, b, c, 
d, е, В, 1. Oltre a questi ne esistono altri 
con compiti particolari, che vedremo 
piü in là. L'unico che ci interessa per 
ora pc, cioe il contatore di program- 
ma, che contiene l'indirizzo di memoria 
da cui lo 280 preleverà il prossimo codi- 
ce operativo. Una volta che questa ope- 
razione sia stata eseguita pc verrà incre- 
mentato di 1 ed il processo si ripeterà. 
Moltissime sarebbero le cose ancora da 
dire; meglio comunque passare ai primi 
esempi pratici e chiarire i vari punti an- 
cora oscuri, quando se ne presenti l'oc- 
casione. 


Qualche esempio 

Supponiamo di voler effettuare l'opera- 
zione piü semplice che esista, quella che 
prelude a tutte le altre, cioe il carica- 
mento di un determinato valore in un 
registro. Prendiamo come esempio il re- 
gistro a, ma quanto vedremo vale per 
tutti. Volendo dare ad a il valore 4, la 
menmonica sarà: 


ld a,4 


ld sta per “load” in inglese (*carica" in 
italiano); il significato sarà регсіб: 


carica a con 4 
Semplice, no? 


In questo modo possiamo dare ad a va- 
lori compresi fra 0 e 255. 


Per numeri più grandi bisognerebbe ri- 
correre a piü registri, caricati ciascuno 
con una parte del numero stesso e, so- 
prattutto, eseguire tutte le eventuali 
operazioni su ciascuno dei due registri. 
Per evitare al programmatore questo 
procedimento complicato, sono state 
previste operazioni che considerano 
non un singolo registro, ma una coppia. 
Cosi, la gamma dei valori che e possibi- 
le caricare si estende da 0 fino a 65535 
(per 2 T 16265536 valori diversi). Le 
coppie per cui sono previste istruzioni 
di questo tipo sono bc, de, hl. Potremo 
quindi avere: 


ld bc,1540 


Proviamo! 


Cose ne dite di passare subito a provare 
quello che abbiamo appena visto? Per 
farlo occorre peró sapere come si fa a 
caricare del linguaggio macchina nel no- 
stro computer. 

Procuriamoci innanzitutto uno spazio si- 
curo in cui collocare i nostri codici, sot- 
traendolo alle *grinfie" del BASIC ed al 
controllo della macchina. Il modo per 
realizzare questo 8 l'abbassamento del- 
la RAMTOP, che indica al computer 
dove "finisce" la memoria a lui disponi- 
bile. Quindi procederemo con l'introdu- 
zione dei codici, uno per uno, con delle 
РОКЕ. 

Per lo Spectrum tutto бі risolve соп ип 
semplice programmino: 


10 CLEAR 29999 
20 LET х-30000 

30 INPUT a 

40 РОКЕ ха 

50 PRINT х, РЕЕК х 
60 LET х=х+1 

70 со то 30 


che stampa anche valori ed indirizzi sul- 
lo schermo per verifica. Il valore 29999 
e calcolato in modo da essere adatto 
per entrambe le versioni di Spectrum. 
Con lo ZX81 bisogna seguire una via 
un po' piü complessa, ma non molto. 

Prima di tutto occorre modificare “ma- 
nualmente" la variabile di sistema 


RAMTOP, con: 


10 POKE 16388,93 
20 POKE 16389,191 


infatti, 93*256+191=23999, che in uno 
ZX81 con 16K ci lascia libera quel po' 
di memoria che ci serve. Quindi date 


NEW 


per rendere effetiva la modifica. Ora 
potete utilizzare un programmino simile 
a quello per lo Spectrum: 


10 LET Х-24000 

20 INPUT A 

30 РОКЕ Х,А 

40 PRINT X,PEEK X 
50 LET Х=Х+1 

60 GO TO 20 


EA О ШШ 


INFORMATICA 


I codici andranno introdotti uno ad uno, 
seguiti da ENTER. Al termine della lista 
basterà dare BREAK per fermare il pro- 
gramma. 

Abbiamo parlato di lista di codici, poi- 
ché di questi à composto, come abbia- 
mo visto, il linguaggio macchina. Biso- 
gnerà perciò tradurre le nostre mnemo- 
niche Assembly. П modo рій comune, 
ed in un certo senso sofisticato, per far- 
lo e usare un programma Assembler, 
che altro non é se non un traduttore 
molto veloce e a prova di errore. A noi, 
per il momento, basta la piü banale tra- 
duzione “manuale”, cioè la ricerca nel- 
l'appendice del manuale della mnemo- 
nica da tradurre e la trascrizione del suo 
valore. 

Vediamo brevemente come si fa. Sup- 
poniamo di dover tradurre l'operazio- 
ne 


ld b,5 


Apriamo il nostro manuale all'appendi- 
ce A, intitolata “Il set dei caratteri", e 
prendiamo in esame la terza colonna, 
quella con l'indicazione “Assembler 
Z80" (in realtà dovrebbe esserci scritto 
Assembly...). Iniziamo a scorrerla, alla 
posizione corrispondente al numero 6 
(prima colonna) troviamo 


ld b,N 

N indica un numero qualsiasi, compreso 
fra 0 e 255, cioè ad 1 byte. La traduzio- 
ne completa sarà quindi 

65 

Volendo invece tradurre 

ld bc,1500 

troviamo al numero 1 

Ја bc, NN 

dove NN indica un numero fra 0 e 
65535, cioè a 2 byte. Per tradurre 
1500 il procedimento à рій complesso. 
Esso va infatti trasformato in due codici. 
Il primo sarà 

INT (1500/256) сое 5 

il secondo sarà 

1500-256*INT (1500/256) cioè 220 
quindi 

15 220 


Per quanto riguarda gli esempi, comun- 
que, non dovete preoccuparvi: questo 


lavoro vi sarà risparmiato; troverete in- 
fatti sempre, accanto all'Assembly, la 
traduzione in linguaggio macchina, 
espressa in cifre decimali. Infatti, а те: 
no di usare un Assembler, lo Spectrum 
non è preparato a ricevere numeri esa- 
decimali. 

Non affrettatevi ad introdurre i codici: 
c’è ancora qualcosa da sapere, prima. 
Innanzitutto, come far eseguire il nostro 
linguaggio macchina? Semplicemente 
con un comando 


PRINT USR... 


dove al posto dei puntini metteremo 
l'indirizzo di inizio, cioè quello a cui è 
conservato il primo dei nostri codici. 
Utilizzando i programmini visti prima, 
per lo Spectrum questo indirizzo sarà 
30000, per lo ZX81 24000. 

La funzione USR non fa altro che dare 
al registro pc il valore da noi specifica- 
to; in tal modo la CPU eseguirà i nostri 
codici. 

E per tornare al BASIC, al termine del- 
l’esecuzione? Poiché i nostri codici sono 
visti dallo 280 come una subroutine, 
l’ultimo di essi dovrà corrispondere al 
codice operativo 


ret 


che è appunto il ritorno da una subrouti- 
ne in linguaggio macchina, allo stesso 
modo in cui RETURN lo è per il BASIC. 
Il suo codice è 


201 


USR è una funzione, e come tale può 
essere usata con qualsiasi comando. 
Possiamo avere 


RANDOMIZE USR... 
LET a-USR... 
ІЕ 0567. THEN- 


In tutti і casi USR assumera all interno 
del BASIC il valore contenuto nella cop- 
pia di registri bc (per lo Spectrum; nello 
ZX81 il valore assunto e quello della 
coppia hl) al termine dell'esecuzione del 
linguaggio macchina. Noi, volendo sem- 
plicemente vedere "cosa salta fuori", 
usiamo PRINT USR. 

Ed ecco finalmente la nostra prima rou- 
tine completa in linguaggio macchina: 


ld b,0 6 0 
ld c,5 14 5 
ret 201 


per lo Spectrum, oppure: 


ld h,0 38 0 
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ld 1,5 46 
ret 201 


per lo ZX81. 

Introducete i codici e quindi, dopo aver 
fermato il programma di caricamento 
con BREAK, date 


PRINT USR 30000 

per lo Spectrum, oppure 
PRINT USR 24000 

per lo ZX81. 


Se avete fatto le cose per bene, sullo 
schermo apparirà il numero 5. Se inve- 
ce avete commesso qualche errore, il 
computer “регдега la testa": l'unica so- 
luzione in questo caso e staccare la spi- 
na (i fortunati possessori di uno Spec- 
trum Plus potranno invece premere il 
tasto RESET). Durante l'esecuzione del 
linguaggio macchina, infatti, non esiste 
né BREAK né protezione in caso di er- 
rore. Vedremo in seguito come costruir- 
ci da soli l'uno e l'altra. 

Un'altra routine con lo stesso effetto 8 


ld bc,5 1 0 5 
тей 201 


per lo Spectrum, o 


ld hl,5 33 
ret 201 


per lo ZX81. 
Tentiamo adesso con il nostro esempio 
precedente: 


14 bc, 1500 1 220 
ret 201 


sostituito, per lo ZX81, da 


ld hl, 1500 33 5 
ret 201 


Per concludere 

Bene, abbiamo visto le prime sempli- 
ci operazioni in linguaggio macchina, 
ed abbiamo fatto eseguire le prime rou- 
tine. Non é molto per ora, ma potete 
essere sicuri che già dalla prossima pun- 
tata proveremo insieme a fare cose dav- 
vero spettacolose. Nel frattempo, ecco- 
vi una routine che contiene qualcosa di 
nuovo: 


ld bc,5 1 
inc bc 3 
ret 201 


о, per lo ZX 81: 


ld hl,5 33 
inc hl 35 
ret 201 


Cosa appare sullo schermo? E per- 
ché? 
Lo vedremo la prossima volta! 


Gli 
ultimi 
saranno 


primi? 


Anche se, in ordine di tempo, 
siamo gli ultimi a uscire con libri 
“dedicati” ai più diffusi home e 
personal computer, siamo convinti 
che il lettore attento ed esigente 
apprezzerà la qualità dei contenuti 
e la loro presentazione. 

Abbiamo selezionato e tradotto i 
best-seller mondiali che accolgono 
quanto di più utile è stato scritto 
per il шо computer. 


Puoi ordinare direttamente i titoli presentati 
compilando ed inviando il coupon pubblicato 
oppure acquistarli presso i più qualificati 
computer shop e le migliori librerie. 
LEE ERESIA Rue 
| 

| 

| 
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CEDOLA DI ORDINAZIONE - LIBRI 


Compilar e spedire in busta chiusa a: 
J. soft - Viale Restelli 5 - 20124 Milano 
tel. 02/6880841-6880842-6880843 


Ordino i seguenti libri per un importo totale di L. ................... 
+ L. 2.000 come contributo fisso per spese di spedizione | 


人 Cds ii ее | 
人 CON de AE | 
СОСЕ И ао 人 | 


O Contanti allegati 
О Assegno allegato n° ................................. 


О Ho versato l'importo sul CCP n° 19445204 intestato a 
J. soft - Milano 


O Pagherò in contrassegno al postino al ricevimento dei! 
volumi | 


| 
| 
| 
О Ho spedito l'importo а mezzo vaglia postale | 
| 
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J. soft: libri di qualità 


Per Commodore 64 


Giochi fantastici per il C 64 
Cod. ASOC 001 L. 42.000 


(inclusa cassetta) 


Un libro pensato e 
realizzato per il È 
divertimento dell'utente € 
del C 64; contiene 19 Ұ 
giochi di vario genere tutti 
ampiamente commentati. $ 
L'attento studio dei 
programmi potrà essere 
vantaggioso per 
l'apprendimento delle 
tecniche di 
programmazione. 


Il libro del C 64 

Volume 1 

Cod. ASOC 010 L. 24.000 
(inclusa cassetta) 

Il libro del С 64 

Volume 2 ; 
Cod. ASOC 011 L. 24.000 Е 
(inclusa cassetta) Р 


1 due libri illustrano a 
fondo le possibilità del 
Commodore 64. Un 
compendio di utili 
consigli, e quant'altro é 
necessario per conoscere 
meglio il proprio 
calcolatore. Esempi pratici 


completanol'esposizione Per ZX Spectrum 
in modo chiaro ed EPUM 
esauriente. 15 giochi grafici per 


ZX Spectrum 
Cod. ASOC 002 L. 24.000 
(inclusa cassetta) 


Un fantastico volume con 
15 entusiasmanti giochi 
gor per il tuo ZX 
pectrum. Tutti i 
programmi sono “pronti 


Inoltre, i Paper Book: la 
raccolta dei programmi 
suddivisi per macchina di 
Paper Soft, il primo 
settimanale di software su 
carta per il tuo computer. 


Paper Book - programmi 
per Apple // - 

Cod. ASOC 005 L. 18.000 
Paper Book - programmi 
per VIC 20 - 

Cod. ASOC 003 L. 18.000 
Paper Book - programmi 
per Commodore 64 - 
Cod. ASOC 004 L. 18.000: 
Paper Book - programmi ` ` 
per Texas TI 99 Um 
Cod. ASOC 007 L. 18.000 ` 
Paper Book - programmi 
per ZX Spectrum - 

Cod. ASOC 006 L. 18.000 


Viale Restelli, 5 - 20124 Milano - tel. 02/688084 1-6880842-6880843 


e». 
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C 64: suono e grafica - 
Volume 1 

Cod. ASOC 008 L. 24.000 
(inclusa cassetta) 

C 64: suono e grafica - 
Volume 2 

Cod. ASOC 009 L. 24.000 
(inclusa cassetta) 


Due volumi che non 


\ possono mancare nella 


biblioteca dell'utente 
Commodore. Una miniera 
di idee e suggerimenti per 
la programmazione del 
tuo personal computer. 
Una vasta serie di 
programmi esemplificativi 
guidano il lettore al 
miglior sfruttamento del 
Commodore 64. 


all'uso" e ampiamente 
commentati. | programmi 
sono scritti sfruttando 
appieno le capacità del 
calcolatore ed il loro 
studio può giovare a 
chiunque intenda affinare 
le proprie tecniche di 
programmazione. 


In ogni volume, 
corredato di cassetta, 
oltre 40 programmi 
per il tuo computer: 
giochi grafici, 

utility, arcade, 
adventure una miscela 
esplosiva di software 
“pronto all'uso"! 


wawa 


Piccola guida рег 
l'input 
dei programmi 


gore pubblicati da SUPERSINC sono stati ac- 
curatamente provati e verificati: in questo modo spe- 
riamo di avere ridotto al minimo la possibilità di errori. 
Nel caso comunque un programma dovesse presentare 
malfunzionamenti, pubblicheremo le modifiche da ap- 
prontare in uno dei numeri immediatamente successivi 
della rivista. 

Per utilizzare i programmi pubblicati à sufficiente digi- 
tare i relativi listati sulla tastiera del calcolatore. 

Nel caso dello ZX SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo grafi- 
co, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici pre- 
definiti (i tasti numerici da 1 a 8 e gli stessi “shiftati”) 
e una serie di caratteri definibili dall'utente nell'ambito 
di un programma (le lettere da A a U). 

In entrambi i casi per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrassegna- 
to dalla lettera G lampeggiante), premendo contempo- 
raneamente i tasti CAPS-SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti sono indi- 
cati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Quando leggete 


(et) n 

{62} е 

{63} - 

(G4] в 

(с5) B 

(G6) " 

(G7) ы _ 

(св) m 

1661) СІ № 

{562} Баймен 2 ДЕНА 

за © тшше 4 sce d 
contempora- С) ща schiacciate 9 

(564 } ш ^I. № 

uc сн 

(567) [CRA [i 

(SG8) EA 


` 
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Ix Ie polo 


Ad esempio {G4} significa che occorre digitare il tasto 
4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo tasto 
numerico, premendo contemporaneamente il tasto 
CAPS-SHIFT. 

Ad esempio quando, si trova la codifica G2] оссогге 
premere il tasto 2 contemporaneamente al tasto CAPS- 
SHIFT, ovviamente con il cursore in modo grafico. In 
entrambi i casi precedenti, quando un simbolo grafico 
deve essere digitato più volte, i caratteri G o SG della 
codifica sono preceduti da un numero che specifica 
quante volte va premuto il tasto grafico indicato. 

Così ad esempio 8G5} significa che il tasto grafico 5 
va digitato 8 volte e analogamente 4SG1} indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battuti 
4 volte. 

I caratteri grafici definibili (le lettere da A a U in modo 
grafico) hanno una codifica semplificata: la lettera cor- 
rispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, una 
A sottolineata occorre entrare in modo grafico (al solito 
premendo contemporaneamente i tasti CAPS-SHIFT 
e 9) e quindi digitare semplicemente il tasto che con- 


trassegna la lettera A. 
Simbolo grafico 


definito nel 
programma in uso. 


Premete 


үш |с) [nt | СО lt | 


бе поп siete 
gia іп modo 
G, entrateci Se dovete 
schiacciando uscire dal 
contempora- nodo с: 5 
neamente Schiacciate 
CAPS SHIFT E 
5% ИЕ 
Е 
5 
: 
о 


di Marcello Spero 


Faccia а faccia con l'interfaccia 


Luci che si accendono da sole, 
telefoni azionati da forze miste- 
riose... non e l'ultimo film di Da- 
rio Argento, ma potrebbe essere 
il vostro Spectrum! 


na puntata particolare, questa. 

Niente hardware, stavolta, a di- 
spetto del nome della rubrica, ma due 
applicazioni complete di ció che abbia- 
mo finora realizzato. Due dimostrazioni 
di come, abbinando il software adatto 
ad un'unità di ingresso/uscita, si possa- 
no ottenere risultati insospettati nel 
controllo del mondo esterno. 
Quelli che non hanno realizzato il nostro 
progetto, e non intendono farlo, diano 
lo stesso un'occhiata ai programmi: po- 
tranno trovare ugualmente motivo di in- 
teresse. 


Contapersone automatico 


Il primo programma realizza un conge- 
gno capace di tenere il conto del nume- 
ro di persone presenti in una stanza, 
addizionando di volta in volta quelli che 
entrano e sottraendo quelli che esco- 
no. 

L'informazione cosi ottenuta puó essere 
utilizzata per infiniti scopi; in questo ca- 
so viene sfruttata per accendere un ap- 
parato elettrico qualsiasi (luce, radio, 
ecc.) quando nella stanza c'é qualcuno 
e spegnerlo se tutti se ne sono andati. 
Vediamone innanzitutto il principio. 
Ponendo sulla soglia della stanza due 
fotocellule, ad opportuna distanza e nel- 
la posizione che vedete in figura 1, l'or- 
dine con cui queste verranno oscurate 
dipenderà dalla direzione del movimen- 
to dell'oggetto che le oscura. 

In particolare, una persona che si muo- 
ve nella direzione 1 le oscurerà nell'or- 
dine A-B, mentre una persona che si 


за 


FOTO CELLULE 
ESTERNO 


LAMPADE 


a 


INTERDO 


fig. 1. Disposizione delle fotocellule sulla soglia della stanza 


muove nella direzione 2 le oscurerà nel- 
l'ordine B-A. 

Sapendo che la direzione 1 è quella di 
ingresso nella stanza, mentre la 2 è 
quella di uscita, basterà disporre di un 
contatore che venga incrementato di 1 
ad ogni oscuramento nell’ordine A-B e 
decrementato, sempre di 1, ad ogni 
oscuramento nell’ordine B-A. 


Se, infine, il contatore avrà valore mag- 
giore di zero, il contatto elettrico sarà 
chiuso (apparecchio utilizzatore acce- 
so), altrimenti sarà aperto (apparecchio 
utilizzatore spento). 

Vediamo adesso come si fa in pratica a 
realizzare un simile apparecchio con 
quello che abbiamo a disposizione. т 
Per quanto riguarda l’accensione e lo 
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spegnimento dell'apparecchio сотап- 
dato, nessun problema: disponiamo in- 
fatti della nostra unità a relay, pilotata 
dallo Spectrum per mezzo di istruzioni 
OUT. Resta da risolvere il problema 
della lettura delle informazioni relative 
alle fotocellule. Ma come funziona una 
fotocellula? 

Una fotocellula non e altro che una resi- 
stenza, il cui valore varia con l'illumina- 
zione. [n particolare, quando una foto- 
cellula riceve una forte luce il suo valore 
е molto basso, cioé lascia passare molta 
corrente. Viceversa, al buio, il suo valo- 
re diventa altissimo ed il passaggio di 
corrente trascurabile. 

La fotocellula, avvolta da un tubo scu- 
ro, non е influenzata dalla luce ambien- 
te, ma solo da quella proveniente dalla 
lampadina che le sta di fronte. 

Se un ostacolo si frappone fra la lampa- 
dina e la fotocellula, ecco che quest'ulti- 
ma piomba nel buio. 

Ció che ci serve ë quindi riuscire a leg- 
gere la variazione di resistenza della fo- 
tocellula o, meglio, il suo stato di condu- 
zione o non conduzione, poiché in prati- 
ca di questo si tratta, visto che le varia- 
zioni sono cosi pronunciate. 

Noi disponiamo dell'unità di ingresso, 
composta da otto linee tenute normal- 
mente a livello basso da altrettante resi- 
stenze. Se una di queste linee viene col- 
legata al polo positivo, il suo valore va 
a uno (livello alto). Non è altro che il 
principio sfruttato dal joystick, di cui 
abbiamo già avuto occasione di parlare 
piü diffusamente. 

Ora, se noi colleghiamo una di queste 
linee con il positivo per mezzo di una 
fotocellula, il collegamento sarà effetti- 
vo (livello alto) se la fotocellula stessa 
е illuminata; altrimenti (fotocellula al 


buio) risulterà molto minore il valore 
della resistenza che collega la linea al 
polo negativo ed il livello risultante sarà 
basso. 

In figura 2 vedete come fare per colle- 
gare i fili provenienti dalle fotocellule 
alle relative linee. Sono state scelte INO 
e IN1; se volete usarne altre, ricordate- 
vi di modificare il programma. In alter- 
nativa al collegamento diretto illustrato, 
potete utilizzare un connettore Cannon 
femmina, uguale a quello del joystick, 
e collegarne i contatti 7 e 2 ad una 
fotocellula e i contatti 7 e 3 all'altra. Le 
fotocellule, dato il loro uso non critico 
ed a bassa tensione (5 volt) possono 
essere di qualsiasi tipo, anche recupera- 
te da vecchie apparecchiature. In ogni 
caso il loro prezzo e estremamente bas- 
50. 

La figura 4 illustra invece come prepa- 
rare fotocellula e lampadina per indiriz- 
zare correttamente il fascio luminoso. 
Mentre, come vedete, per la fotocellula 
e opportuno usare della carta o carton- 
cino neri, nel caso della lampadina oc- 
corre utilizzare qualcosa che non venga 
danneggiato dal calore. La scelta mi- 
gliore sembra il foglio di alluminio che 
Si usa in cucina. 

Mi raccomando di scegliere lampada e 
portalampada di forma allungata e di 
fare bene attenzione all'isolamento dei 
fili di alimentazione, che sono ovvia- 
mente a 220 volt. Chi volesse, per ra- 
gioni di sicurezza puó usare lampadine 
alimentate a bassa tensione, a batteria 
o connettendosi al trasformatore di ali- 
mentazione dell'interfaccia, se questo à 
stato acquistato con una certa abbon- 
danza quanto a potenza e le lampadine 
non consumano troppi watt. E in ogni 
caso da escludere un loro collegamento 
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dopo il ponte raddrizzatore ed il regola- 
tore: li brucereste senz'altro. 

Per garantire un corretto funzionamen- 
to ponete le due fotocellule, ed ovvia- 
mente le due lampadine (che dovranno 
essere perfettamente in linea con le pri- 
me), alla massima distanza possibile 
l'una dall'altra. 


Il programma 


E veniamo al programma, vero *moto- 
re" di tutto il sistema. 

Il suo funzionamento é molto semplice. 
Si parte assumendo vuota la stanza, e 
quindi la variabile cont (il contatore) vie- 
ne аггега!а e l'apparecchiatura spenta 
con un'istruzione OUT 223,0. 

A questo punto si entra in un ciclo in 
cui si rimane finché ambedue le fotocel- 
lule sono illuminate (IN 223-3). A se- 
conda di quale delle due si spegne per 
prima, si salta ad un secondo apposito 
ciclo, che attende l'evoluzione della si- 
tuazione. 

Se le due fotocellule tornano ad illumi- 
narsi, vuol dire che la persona è tornata 
indietro, e tutto deve ricominciare. Se, 
invece, anche l'altra si oscura, occorre 
attendere, poiché la persona si trova in 
mezzo alla soglia. 

Solo quando la prima fotocellula si illu- 
mina nuovamente, mentre la seconda 
continua ad essere oscurata, possiamo 
essere sicuri che il passaggio ë avvenuto 
ed aggiornare cont in modo appropria- 
to. 

Notate che se la prima lettura dà già 
come risultato l'oscuramento di ambe- 
due le cellule (IN 223-0), la lettura non 
puó essere correttamente interpretata, 
ed ë quindi scartata. Proprio per ridurre 
al minimo questo rischio occorre distan- 


са, 
Ей PIN + 
Рю 2 ы 
PIN 3 о 
[9] 
PLD4 о 
О 
Рю 5 О 
PIN Ч 
COLLEGANEDTI 


сом LE FOTOCELLULE 


fig. 2. Schema collegamenti da effettuare sulla scheda di ingresso 


VISTA 
ANTERIORE 


VISTA 
PoSTERIORE 


fig. 3. Connettore Cannon, disposizione 
dei contatti 


ziare il più possibile le due fotocellule. 
Il programma assume come collegata 
alla linea 0 la cellula collocata dalla par- 
te della stanza, ed alla linea 1 quella 
dal lato esterno della soglia. Anche qui 
eventuali modifiche od inversioni impli- 
cano una modifica del programma. 

Il relay pilotato è quello sulla linea OU- 
TO. Anche qui sono possibili molte mo- 
difiche, compresa l’inversione del fun- 
zionamento (tutti fuori=apparecchio ac- 
ceso, qualcuno dentro=apparecchio 
spento): a voi l'iniziativa. 


CARTA А 
OCARTONUNO 
SCURO 


Foeuo 
DI 
ALLUMINIO 


VESTIRE IAA 


Agenda telefonica con com- 
posizione automatica 


Questa realizzazione è, per molti aspet- 
ti, più interessante della prima, anche 
se fa uso della sola sezione di uscita. 
Infatti si realizza la simulazione del fun- 
zionamento di un apparecchio elettro- 
meccanico, qual è il disco combinatore 
del telefono. 

A questo proposito c’è una raccoman- 
dazione da fare: la SIP non consente ad 
alcuno di manomettere le cose di sua 
proprietà (leggi: telefono) né tantomeno 
di collegare apparecchi alle linee telefo- 
niche senza il suo permesso. Pertanto 
questa va considerata, a tutti gli effetti, 
una trattazione teorica. A buon intendi- 
tor... 

Quello che si vuole ottenere è un’agen- 
da telefonica che, ricevuti nome e co- 
gnome di una persona, ne ricerchi il nu- 
mero di telefono. Fin qui niente di stra- 
no: esistono decine di programmi dispo- 
nibili che fanno questo. Ma la nostra 
agenda non si ferma qui: trovato il nu- 
mero lo compone da sola, proprio come 
faremmo noi con il nostro dito. 

Per comprendere come ciò sia possibile 
bisogna esaminare un attimo il funziona- 
mento del disco combinatore di un tele- 
fono. 

Quando noi facciamo ruotare il disco in 
senso orario, fino al blocco, si chiude un 
contatto, che pone in collegamento di- 


retto i due poli della linea. Quando poi 


rilasciamo il disco un contatto che nor- 
malmente (cioé sia durante la conversa- 


Е РЕ 


На. 4. Preparazione delle fotocellule е 
delle lampade 


zione che quando il telefono e abbassa- 
to) e chiuso si apre tante volte quante 
sono le unità del numero da comporre, 
per poi richiudersi. Sulla linea si creerà 
cosi una serie di impulsi, che comporrà 
il numero. 

Riassumendo: 

— chiusura di un contatto; 

— apertura ad impulsi di un altro. 

La durata degli impulsi e estremamente 
critica: ciascuna apertura con la chiusu- 
ra successiva deve durare complessiva- 
mente 1/10 di secondo, ed il rapporto 
apertura/chiusura deve essere di 
1,6/1. Ovviamente sono previste am- 
pie tolleranze, visto che gli apparecchi 
telefonici sono ben lontani dal rispettare 
queste specifiche (il disco funziona a 
molla e contrappesi...). 

Facendo qualche conto troviamo che 
l'apertura deve durare 0,0615 secondi 
e la chiusura successiva 0,0384 secon- 
di. Ora sta a noi riprodurre, con oppor- 
tune istruzioni OUT, l'apertura e la 
chiusura di questi contatti. 

Visto le tolleranze potremmo acconten- 
tarci di utilizzare, per la temporizzazio- 
ne, delle istruzioni PAUSE; si é invece 
preferito ricorrere al linguaggio macchi- 
na, per raggiungere una precisione qua- 
si assoluta. 

Tutta la difficoltà sta nella realizzazione 
dei ritardi; 0,0615 secondi equivalgono, 
alla frequenza di clock dello Spectrum, 
a 21525 cicli (0.0615/3.5*10 16), 
mentre 0,0385 secondi equivalgono a 
13475 ск! (0.0385/3.5*10 1 6). 
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Vediamo come д stato possibile realiz- 
zare tutto questo in pratica. 

Dall'Assembler della routine potete ve- 
dere come sia presente un ciclo princi- 
pale, chiamato LOOP, che viene ese- 
guito tante volte quante sono le unità 
del numero da comporre, ottenuto per 
mezzo di una FN usata in modo partico- 
lare (di cui avremo occasione di parlare 
nel corso di Assembler) e con l'ausilio 
della variabile di sistema DEFADD. Ad 
ogni passaggio vengono eseguiti i due 
cicli secondari, LOOP2 e LOOPS, che 
realizzano rispettivamente la temporiz- 
zazione per l'apertura e quella per la 
chiusura dei contatti. Al primo e stato 
necessario aggiungere, oltre ai 7174 gi- 
ri del ciclo, un'istruzione “ld a, 0” per 
raggiungere l'esatto ritardo. Nel secon- 
do caso, invece, ai 4490 giri e bastata 
l'aggiunta di un ulteriore “пор”. Ambe- 
due i cicli contengono solo un'istruzione 
“пор” (nessuna operazione), oltre, natu- 
ralmente, alle istruzioni necessarie ad 
aggiornare il contatore (bc) e a verificar- 
ne il valore, istruzioni che vanno tenute 
presenti nel calcolo del tempo impiega- 
to ad eseguire ciascun giro. 

Il programma vero e proprio riguarda 
invece le varie funzioni dell'agenda, ed 
ë utilizzabile anche separatamente, cioe 
senza la routine di composizione auto- 
matica del numero. Il linguaggio mac- 


Agenda telefonica 


china di quest'ultima à comunque in- 
serito in un'istruzione DATA, e viene 
perció caricato automaticamente. 

Per quanto riguarda l'uso pratico del 
programma non c'é molto da dire. 
Non appena partito vi presenterà un 
menu di possibili operazioni, ed al suo 
interno sono previsti controlli per garan- 
tire il corretto inserimento dei dati ri- 
chiesti. Dopo ogni singola operazione 
(cioe un inserimento, una cancellazione, 
ecc.) tornerete automaticamente al me- 
nu. In caso di inesatto inserimento dei 
dati, invece, la fase di input ricomince- 
rà. П programma e stato pensato per i 
non possessori di microdrive, che sono 
la maggioranza, e fa perció uso di una 
matrice per contenere i dati. Poiché il 
programma, appena partito, si dispone 
al caricamento di quest'ultima, la prima 
volta che lo si utilizza (quindi in assenza 
di una matrice già registrata) bisogna 
perció farlo partire non con RUN, ma 
con GO TO 20. Dopo la prima esecuzio- 
ne dell'opzione 6 (registrazione dati), ef- 
fettuata preferibilmente subito in coda 
alla registrazione del programma, non 
ci saranno piü problemi, ed un semplice 
RUN апаға benissimo. 

Si tratta di un programma adatto allo 
Spectrum 48K. Il 16K, infatti, oltre a 
non avere spazio sufficiente, in memo- 
ria, per programma e dati, non consen- 


versione per ZX Spectrum 48K 


1 REM 


AGENDA TELEFONICA 


CON COMPOSIZIONE AUTOMATICA 


DEL NUMERO 
5 DEF FN a(i)-USR 60001 


10 LOAD "agenda" DATA a$() 
20 CLEAR 65000: GO SUB 8500 
30 BORDER 0: PAPER 0: INK 7: CLS : 


OUT. 223, 2 


40 DRAW 255,0: DRAW 0,175 
50 DRAW -255,0: DRAW 0,-175 
60 PRINT АТ 3,7; BRIGHT 1; "АСЕКОА T 


ELEFONICA" 
70 OVER 1 


80 PRINT '''" 1 Inserimento nuovo n 


ominativo" 


90 PRINT '" 2 Cancellazione nominat 


ivo" 


100 PRINT "1 13 

105 PRINT '" 4 Elenco completo" 
110 PRINT '" 5 Nuovo elenco " 
120 PRINT '" 6 Reg. dati" 

125 рвтнт '"*7 Uscita" 

130 OVER 0 

140 PAUSE 0 


150 IF INKEY$>"7" OR INKEY$<"1" 


THEN GO TO 140 
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Ricerca nominativo" 


1020 CLS 


1040 INPUT 


бато) 


te (per ragioni che sono già state espo- 
ste nell'articolo sulle interruzioni appar- 
so su questa rivista tempo fa), un calco- 
lo preciso dei tempi di esecuzione delle 
routine in L/M, cosa fondamentale in 
questo caso. 


Кассотапфато а quanti hanno realiz- 
zato la nostra interfaccia di provare il 
programma, anche se non collegato al 
telefono: sentiranno i relay ticchettare 
e vedranno i led scandire la composizio- 
ne del numero. 


Come informazione puramente teorica, 
sulla scheda del circuito telefonico si 
trovano quattro morsetti a vite, nume- 
rati da 1 a 4. L'1 e il 2 andrebbero 
collegati al relay 1, mentre il 3 ed il 4 
al relay 0, naturalmente dopo aver stac- 
cato dai morsetti stessi i fili originali. In 
questo modo i due relay vengono a so- 
stituire il disco combinatore dell'appa- 
recchio. In questa situazione e indispen- 
sabile, perché il telefono possa essere 
usato, che il programma sia stato fatto 
partire. Solo l'esecuzione dell'ultima 
istruzione della linea 30 (OUT 223,2) 
permette infatti l'indispensabile chiusu- 
ra del contatto. Chi volesse puó inverti- 
re i collegamenti del relay, in modo che 
i suoi contatti siano normalmente chiusi. 
Cio comporta peró modifiche al pro- 
gramma ed alla routine in 1/m. 


160 GO SUB VAL ІМКЕҮ5%1000 

170 со то 30 

1000 REM inserimento nominativo 
1010 DIM n$(40) 


1030 PRINT AT 5,7;"NUOVO NOMINATIVO" 

"Nome: "; LINE n$(16 TO 25 
И "cognome: LINE 050 TO 15)" 
"м, вет. 


(/=pausa): "; LINE п8(2 


1045 ТЕ п5(1)-" " OR п5 (16) =" 
THEN GO TO 1040 

1050 FOR i=26 ТО 40: IF п$(1)>"0" 
AND п5(1) <"9" OR п5(і)-"/" 


ТНЕМ МЕХТ 1: GO ТО 1070 


1055 ТЕ n$(i)-" " THEN FOR j=i TO 40 
ТЕ nS(jys" " THEN = NEXT j: 
GO TO 1070 


1060 GO TO 1040 


1070 FOR 1=100 TO 1 STEP -1 
1080 IF а$(1,1)=" " THEN NEXT i: 
LET a$(1)=n$: RETURN 


1090.IF i=100 THEN CLS : PRINT 
FLASH 1;"NON C'E' PIU' SPAZIO I 
N MEMORIA": PAUSE 0: RETURN 
1100 IF n$( TO 25)<a$(i, TO 25) 


THEN LET a$(i+1)=a$(i): NEXT i 


: LET а$ (1) =п$: RETURN 


1110 


1120 


1130 


2000 
2010 
2020 


20 
2115 
2120 
2130 


2140 


2150 
3000 
3010 
3020 


3030 
3040 
3050 


3070 


3080 


3090 
3200 
3210 
3215 
3220 


3225 
3230 
3240 
3250 
3260 


3270 
4000 
4010 
4020 


4030 
4040 


4050 


4060 
5000 
5010 
5020 
5030 


ТЕ nee тО-25) <авса то 25) 
THEN LET а$ (1+1) -а8 (1): 
: LET a$(1)=n$: RETURN 


МЕХТ 1 


ТЕ п5( TO 25)>а5(1; TO 25) 
THEN LET a$(i+1)=n$: RETURN 


CLS : PRINT АТ 0,4; FLASH 1; "NOM 
INATIVO GIA' PRESENTE": LET i=i+ 
1: GO SUB 2120: PAUSE 0: 

RETURN 

REM cancellazione 
CES 


PRINT AT 0,3;"CANCELLAZIONE NOMI 
NATIVO" 

GO SUB 8000 

ТЕ err-]! THEN RETURN 

FOR j=i TO 99 

ТЕ a$(j+1,1)<>" " THEN LET a$ 
(3) =а$ (3+1): NEXT j 

LET а8 (3) =" 


RETURN 
REM ricerca nominativo 
CLS 
INPUT "Composizione automatica n 
ишего? (ит) u zS 
со SUB 8000 
ТЕ err-]l THEN RETURN 
PRINTO ST AMS eTO 25) ns (TOIT 
5) nS (26 mom) 
ТЕ 2$5<5>%8" AND 20<> US" 
THEN INPUT "Composizione numer 
o? (s/n) ";25 
IF z$="s" OR z$="S" THEN 
GO SUB 3200 
RETURN 
REM composizione numero 
OUT 2233 
EOR 1-26 TO 40 
ТЕ п$8(1)=" " THEN OUT. 223; 2: 
со то 3250 
PAUSE 40+(100 AND n$(i)="/") 


RANDOMIZE FN a(VAL n$(i)) 

NEXT i 

INPUT "Ripetizione? (s/n) ";25 
IF z$="s" OR z$="S" THEN 

GO TO 3210 

RETURN 

REM elenco completo 

CLS 

PRINT AT 0,7; "ELENCO NOMINATIVI" 
тт 

FOR 1=1 ТО 100 

ТЕ а$(1,1)=" " THEN PAUSE 0: 
RETURN 

PRINT ''''а$(1,16 ТО 25) ''а$ (1, 
TO 15) "тасқа, 26 то) 

NEXT i: PAUSE 0: RETURN 

REM nuovo elenco 

CLS ; 

PRINT AT 0,9;"NUOVO ЕҺЕМСО" 
INPUT FLASH 1; "Ргоуоса la cance 


llazione del vecchio elen 
co eventualmentepresente in memo 
ria O.K.? (8/1) "725 


5040 


5060 
5080 
5090 
6000 
6010 
6020 


6030 
6040 
7000 
7010 
7020 
7030 


7040 
8000 
8010 
8020 


8030 
8040 
8050 


8060 


8070 
8080 


8090 


8100 


8110 


8120 
8200 


8300 


8500 
8520 
8530 


8540 
8550 
8560 
9000 


IF z$«»"s" AND 25<>"5" 
THEN RETURN 

DIM a$(100,40) 

GO SUB 1000 

RETURN 

REM registrazione dati 

CLS 

PRINT AT 0,5;"REGISTRAZIONE DATI 
" 

SAVE "agenda" DATA a$() 

RETURN 

REM uscita 

CLS 

PRINT AT 0,12;"USCITA" 

PRINT #1;"Per rientrare senza ре 

rdere i dati, dare GO TO 30" 

PAUSE 0: STOP 

REM ricerca 

DIM n$(25) 

INPUT "Nome (facoltativo): "; 
LINE п5(16 ТО )''"Cognome: "; 
LINE n$( ТО 15) 

IF п5(1)-" " THEN СО TO 8020 

FOR 1=1 TO 100 

те аз (т, у=” "Ото 5) аз 

i, ТО 15) THEN СО SUB 8300: 
RETURN 

ТЕ п5( то 15)ваз (31, TO 15) 

THEN NEXT i: СО SUB 8300: 

RETURN 

IF i-100 THEN СО SUB 8200: 
RETURN 

IF а$ (1+1, ТО 15) «ваза, TOTIS 

) ТНЕМ СО SUB 8200: RETURN 

ТЕ n$(16)=" " THEN PRINT АТ 0,3 
; FLASH 1;" OCCORRE ANCHE IL NO 

ME ": INPUT "Nome: "; LINE п$ (1 

6 ТО? 25) 

IF п5>а5(і, TO 25) AND i«100 
THEN LET 1-1+1: GO TO 8100 

IF п5-а5(і, TO 25) THEN 
GO SUB 8200: RETURN 

GO SUB 8300: RETURN 

DIM n$(40): LET n$=a$(i): LET er 

r=0: RETURN 

PRINT АТ 0,3; FLASH 1;" NOMINATI 


VO INESISTENTE ": 
rr=1]: RETURN 

REM caricamento Т/п 
FOR i=65001 TO 65054 
READ a 


PAUSE 0: LET e 


POKE i,a 

NEXT i 

RETURN 

DATA 42,11,92,17,4,0,25,126,254, 
10,240,183,32,2,62,10,87,243,62, 
22230176726 0, ПП; L20, 177232 
r250;62;0; 6237211; 22302; 40:12. 
1,138,17,0,11,120,177,32,250,0,2 
472227 251,201 
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| Contapersone automatico 
versione per ZX Spectrum 16K/48K 


10. LET cont=0 

20 OOT 22370 

30 LET а-тм 223 

40 IF a=3 THEN GO TO 30 

50 СО TO а*100 

100- БЕТ. a-IN 223 
110 ТЕ а=1 OR a=0 THEN СО ТО 100 
120 IF a=2 THEN LET cont-cont-4]l 


Agenda telefonica 


130 
140 
200 
210 
220 
230 
240 
300 
1000 
1010 
1015 
1020 


GO 
GO 


SUB 1000 
TOSO 


LET a=IN 223 


IF 
TE 
GO 
GO 
GO 
LE 
IF 


a=2 OR a=0 THEN GO TO 200 
a=] THEN LET cont=cont-1 
SUB 1000 

то 30 

ТО: 30 

cont-0 THEN OUT 223,0 
conmt^»0 THEN ойт 22377] 


PRINT cont 
RETURN 


Assembler della routine di composizione del numero 


equ 23563 DEFADD LOOP 14 а,1 
ld hl, (DEFADD) out(223),a 
ld de,4 Та Бе, 71.74 
ааа 11 ,де 100Р2 пор 
за: а» (hl) аес bc 
ср 10 14 а,Ь 
ret р ог е 
ога jr nz,LOOP2 
Jf Dnz,OK ld a,0 
Id а,10 За аз 
ок 1а а,а out(223),a 


dec d 

jr z, END 

14 bc,4490 
LOOP3 nop 

dec bc 

ld a,b 

ог с 

jr nz,LOOP3 

nop 

jr LOOP 

END ei;ret 


ENTE FIERE SCANDIANO (RE) 


wu NV ww u EN ша а 
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di Marco Broglia 
e Davide Conti 


Avete listati chilometrici e/o di- 
sordinatissimi? Questo pro- 
gramma e ció che fa per voi. 


Sum “тепитбег” é un program- 
ma scritto interamente in linguaggio 
macchina, che permette di rinumerare 
totalmente o parzialmente qualsiasi li- 
stato BASIC. Diversamente da altri pro- 
grammi pubblicati su questa e su altre 
riviste, la rinumerazione viene effettua- 
ta su qualunque tipo di salto (GO TO, 
GO SUB, RESTORE, RUN, LLIST, 
LIST, LINE) e prende in considerazione 
anche quelli calcolati e riferentisi a linee 
inesistenti. 

Affinché “renumber” possa funzionare 
non e necessario, come per amor di 
semplicità molto spesso avviene in rou- 
tine analoghe, predisporre opportuna- 
mente il listato e segnatamente i salti, 
perché tutte le modifiche necessarie 
vengono effettuate automaticamente in 
fase di esecuzione. E questo il caso delle 
trasformazioni che bisogna operare lad- 
dove si passa dalla rappresentazione 
ASCII di un salto con numero di linea 
più basso a quella di un salto con nume- 
ro di linea più alto (o viceversa). 

La velocità di esecuzione di *renumber" 
ë notevolmente alta, se paragonata а 
quella dei corrispondenti programmi 
BASIC, peraltro estremamente limitati 
nelle prestazioni, ma ë pure decisamen- 
te superiore a quella delle altre routine 
in codice macchina che abbiamo avuto 
modo di vedere. 

Il programma occupa 910 byte, che non 
sono poi eccessivi se si considera la sua 
completezza, la sua totale autonomia 
dal BASIC, nonché la sua rilocabilità. 


Caricamento, checksum e ri- 
locazione 

Per inserire i codici presenti nella tabel- 
la "Spectrum renumber: il codice ogget- 
to" occorre un caricatore esadecimale, 
che dovrà essere lanciato dopo aver da- 
to CLEAR 64457. L'indirizzo di parten- 
za ë 64458 (ЕВСА in esadecimale), 
quello finale 65367 (FF57 hex). 

Per verificare utilizzate il programma 
“checksum”, che fornirà una sequenza 
di numeri, da controllare con quelli da 
noi riportati con il codice oggetto, in 


coda alla quale potete trovare la som- 

ma totale dei codici immessi, che deve 

risultare pari a 103082. 

In caso di errore esaminate il contenuto 

degli otto byte incriminati e provvedete 

alla relativa correzione. 

Il programma e stato assemblato con 

origine tale da occupare la zona di me- 

moria immediatamente al di sotto della 
zona degli UDG nello Spectrum 48K. 

Qualora voleste utilizzarlo nella versio- 

ne 16K, oppure allocarlo altrove, dove- 

te procedere nel modo seguente: 

— caricate da nastro il programma con 
istruzione CLEAR nuovo indiriz- 
20-1: LOAD “RENUMBER” CODE 
nuovo indirizzo; 

— utilizzate il programma “rilocatore”, 
che aggiunge una costante, detta di 


riallocazione, a tutti gli indirizzi da 
modificare; 

— inizialmente verrà richiesta l’immis- 
sione del nuovo indirizzo, dopodiché 
saranno generati i nuovi codici e il 
programma sarà pronto per essere 
eseguito all’indirizzo desiderato. 

N.B.: gli indirizzi per il caricatore esade- 

cimale, per il checksum e per la riloca- 

zione sono stati calcolati per la versione 
48K, per cui i possessori di Spectrum 

16K devono sottrarre 32768. 


Come utilizzare Spectrum re- 
number 


Per attivare il programma dare il co- 
mando RANDOMIZE USR 64458 op- 
pure RANDOMIZE USR nuova locazio- 
ne, qualora lo aveste rilocato. 
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A questo punto nella parte bassa dello 

schermo compariranno in successione 

quattro messaggi di input, che corri- 
spondono ad altrettanti parametri da 
immettere. 

Il primo, che chiameremo From, corri- 

sponde alla prima linea da rinumerare; 

il secondo, To, rappresenta invece l'ulti- 

ma; il terzo e il quarto, Start e Step, 

sono rispettivamente il numero di linea 
iniziale e il passo della nuova numera- 
zione. 

In ciascun caso, premendo subito EN- 

TER senza specificare alcun valore, si 

accetta il default, che per From e la 

prima linea del listato, per To l'ultima, 

per Start e Step 10. 

Se immettete valori non accettabili per 

i suddetti parametri, il programma si 

interromperà, stampando "Parameter 

Error" e седега il controllo al BASIC, 

portando il cursore nel modo K. 

Sono condizioni di errore i seguenti casi: 

— From - linea inesistente 

— To - linea inesistente oppure prece- 
dente From 

— Start — linea non compresa tra la 
precedente di From e la successiva 
di To (per evitare duplicazioni di nu- 
meri di linea) 

— Step = 0 oppure tale che, a rinume- 
razione avvenuta, le linee da From a 
To presentino numeri che superano 
o eguagliano quelli di una o più linee 
successive oppure che superano il 
valore 9999, 

"Spectrum renumber" non puó trattare 

un salto se la destinazione ë una linea 

inesistente. Se nel listato sono presenti 
salti di questo genere, il programma 
non effettuera alcuna rinumerazione, 
stampando il messaggio "Impossible 

Renumbering" seguito dal numero di li- 

nea e di statement interessati. 

I salti devono essere ovviamente 


espressi mediante interi positivi: non 
verrannno quindi rinumerati, ad esem- 
pio, i salti calcolati, quelli espressi con 
numeri decimali, quelli con le cifre inter- 
calate da attributi o quelli preceduti o 
seguiti da spazi. Il programma li consi- 
dera, ma non li rinumera, limitandosi a 
stampare "Expression In", numero di 
linea: numero di statement per indicar- 
ne la presenza. 


Descrizione dell'algoritmo 


Per poter comprendere l'algoritmo di 
"Spectrum renumber" é necessario co- 
noscere la rappresentazione in memo- 
ria di una linea BASIC e in particolare 
di un salto. 

Per quanto riguarda la prima rimandia- 
mo a pag. 122 del manuale di istruzioni. 
I salti vengono invece codificati secondo 
lo schema seguente: 


TOKEN | Rappr. ASCII 0|0| LSB | MSB |0 :0 
della destin ENTER 


TOKEN е! codice ad un byte dell'istru- 
zione di salto. La rappresentazione 
ASCII della destinazione non altro che 
la codifica ASCII, cifra per cifra, del 
numero che segue il salto. 

Il numero 14 é un identificatore di co- 
stante numerica: quest'ultima ë il valore 
che viene prelevato dall'interprete per 
effettuare il salto. Tale valore 8 dato 
dal raggruppamento di cinque byte in 
formato floating-point. Di essi peró se 
ne utilizzano normalmente soltanto due 
(quelli contrassegnati da LSB e MSB, 
che stanno rispettivamente per "Less 
Significant Byte" e “Most Significant 
Byte", byte meno significativo e byte 
piü significativo), in quanto la destina- 
zione e in genere un intero positivo. 

Il metodo da noi adottato si articola nei 
seguenti punti: 


1) Controllare tutti i salti per verificare 
se si riferiscono a linee esistenti. Nello 
Spectrum, infatti, se la destinazione non 
viene trovata, il salto si considera fatto 
alla prima linea con numero maggiore 
di essa. 

Nel caso di destinazioni inesistenti un 
renumber puó regolarsi in due possibili 
modi: o segnalare condizione di errore 
oppure agire come l'interprete e cerca- 
re la prima linea valida come destinazio- 


ne. 
Noi, sulla base dell'esperienza, abbia- 
mo optato per la prima ipotesi; infatti 
e facile constatare che la presenza di 
salti “imprecisi” determina situazioni 
ambigue ed effetti collaterali indeside- 
rati. 

2) In ogni salto sostituire alla rappresen- 
tazione LSB/MSB della destinazione 
l'indirizzo di questa. In tal modo, dopo 
il passo 3, non andranno perduti i riferi- 
menti alle destinazioni, cosa che invece 
accadrebbe se essi fossero costituiti dai 
numeri di linea che, in tale passo, sono 
suscettibili di modifiche. 

3) Risequenziare le righe del listato dal- 
la prima all'ultima oppure nell'interval- 
lo specificato al momento dell'immissio- 
ne dei parametri. 

4) In ogni salto sostituire all'indirizzo 
memorizzato nel passo 2 il numero della 
linea corrispondente. 

Ora i salti si riferiranno ancora alla pre- 
cedente numerazione, mentre la codifi- 
ca interna si riferirà alla nuova. Se a 
questo punto eseguissimo il programma 
BASIC, questo funzionerebbe corrette- 
mente. 

5) In ciascun salto leggere la codifica 
LSB/MSB, convertirla in codifica 
ASCII e sostituirla immediatamente do- 
po TOKEN. Ora anche il listato risulte- 
rà corretto e la rinumerazione avrà ter- 
mine. 


Spectrum renumber 90 (DATA 12,33,T16,39,229. 42.75, 

versione per ZX Spectrum 48K 92 

с 100. DATA 34,2, 255242323793, 

10 CLEAR 64457: FOR k=1 ТО 910 E 
: READ c: РОКЕ 64457+k,c: PUO DATA 255,26; 103. 19:26 111,2 
NEXT k 7,229 

20 DATA 175,205,1,22,205,107,1 120 n 42,0,255,167,237,82,56 
£i , 

30 DATA 16,255,175,205,14,253, 130. DATA 225,1955117,252, 52255. 
32,5 2557 237 

40 DATA 42,83,92,24,6,205,110, 140 to 91,0,255,26,254,64,48, 
25 

50 DATA 194,177,252,34,0,255,2 150 РАТА: 197,42,2,255;167;237:8 
05,107 2,40 

60 DATA 13,17,16,255,62,1,205, 160 Я 10,235,205,184,25,193, 
14 7 

ZO БАТА 253,40, 1472051102521 170 РАТА 239,3;/197,205,1707213:1 
94,177-: 7,16 

80 DATA 252,205,184,25,26,254, 180 ы. 255,62,2,205,14,253,32 
64,56 7 
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190 
200 
210 
220 
230 
240 
250 
260 


270 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


430 
440 


450 


460 


ПАТА 33,10,0,34,4,255,237,9 

1 

DATA 0,255,42,83,92,167,237 
,82 

DATA 40,26,235,126,35,110,1 

03,205 

DATA 110,25,235,126,35,110, 
103,237 

DATA 91,4,255,167,237,82,56 
E 

, 

РАТА 225,225,24,51,205,107, 

СТРА ре 

DATA 
,40 

РАТА 11,175,188,32,10,189,3 

Zad 

DATA: 225,225,24,27,33,10,0, 
34 


DATA 6,255,209,205,169,48,4 
9:3 

DATA 225,24 12,237,91, 4,255 
,25 

DATA 209,56,4,237,82,56,20, 
205 

ПАТА 107,13,17,16,255,62,4, 
205 
DATA 
„225 
DATA 195,156,18,243,205,107 
:13:221 

DATA 33,31,254,205,107,253, 
221,34 

DATA 83,254,205,107,253,42, 
0% 255 

DATA 237,91,4,255,237,75,2, 
255 

РАТА 124,184,194,235,252,12 
5,185,40 

DATA 19,114,35,115,35,78, 35 
,70 

DATA 9,35,225;237,75:6;2235, 
9 А 

РАТА: 235,195,222,252,4,2205,33 
‚99,254 

DATA 205,107,25>, 221,35, LI 
‚254,205 

DATA 107,253,251,201,205,10 
2,583 

DATA 0,0,6,4, 175, 50,8, 92 
DATA 58,8,92, 214,48, 254,10, 
48 
DATA 


16,255,62,3,205, 14,253 


10,12,33,59,92,203, 158 


17,197,6,0,79,84,935,41 


DATA 41,25,41,9,193,198,48, 
208 


470 


480 
490 
500 
510 
520 
530 
540 


550 
560 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


700 


DATA 16,226, 254,221,32,4, 12 
0,254 

DATA 4,201,254, 220,40, 11,12 
0,167 

DATA 32,214,58,8,92,214,48, 
24 
DATA 233,120, 254,4, 40, 202,6 
DATA 215,62,32,215,62,8,215 
DATA 17,255,255,1,10,0,167, 
БАТА 66,19,48,251,235,193,4 


DATA 171,42,83,92,126,254,6 
4,208 
РАТА 34,8,255,22,1,30,0,2T3 


DATA 205,136,25,194,17, 2545 
354126 

DATA 235,33,10,255,1,6,0,23 
7 

DATA 177,235,40,31,254,248, 
322119 

DATA 35,126,205,182,24,254, 
34,32 

DATA 6,35,190,32,252,24,241 
,254 

РАТА 13,40,108,254,58,40,96 
,254 

DATA 202,32,229,35,146,2545 
13,40 

DATA 94,254,58,40,82,214,48 
,254 

ПАТА 10,218,173,253,254,222 
:32,13 

DATA 1,6,0,9,126,254,13,202 


DATA 4,254,254,58,202,4,254 
4227 

РАТА 229,225,17,99,254,167, 
237,92 

DATA 32,45,62,2,205;1,22 5*1 


DATA :16,255,62,6,251,205,10 
,12 

DATA 243,42,8,255,70,35,78, 
205 
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710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


830 


840 


850 


860 


870 


880 


890 


900 


910 
920 


930 


940 


DATA 27,26,62,58,215,193,19 
ҰТА 

РАТА 6,0,205,27,26,62,13,21 
5 я 
DATA 24,5,43,43,43,221,233, 
42 

РАТА 8,;255,209,20,195,119,2 
537209 
рАТА:42;6;255,35,35,78;35,7 
0 

DATA 9,35,195,110,253,126,3 
5,102 
ПафА-111,;205;116,257202,9,2 
54,175 

DATA 2095,;1222,17,167225, 62. 


DATAY205 10 T2 4280255770 
DATA 78,205,27,26,62,58,215 
DATA 72,6,0,205,27,26,33,59 


DATA 92,203,158,225,225,251 
‚195,156 
DATA 18,229,126,35,102,111, 
205,110 


DATA 25,235, 225, 5.35.1148, 
195.59 - 

DATA 254,94,35,86,26,119,19 
,43 

БАТА 26,119,195,9,254,229,1 
26,35 

DATA 102,171;17,0,255,1,24, 
252 

ПАТА 205,244,254,18,1,156,2 
55,205 

БАТА 244,254,19,18,14,246,2 
05,244 

DATA 254,19,18,125,198,48,1 
9,18 

БАТА 33,0,255,1,4,0,62,48 
DATA 190,194,163,254,35,13, 
195,154 

DATA 254,227;17,282,255,25, 
22,0 

DATA 43,20,126,214,48,254,1 
0,218 


32 . suPERsINCÓ 3/85 


950 DATA 170,254,35,197,121,146 
‚50,4 

960 РАТА 255,210,204,254,237, 68 
‚79, 62 

970 РАТА 255,50,5,255,205,232,2 
5,195 

980 РАТА 213,254,79,175,50,5,25 
5,205 

990 РАТА 85,22,35,235,193,225,2 
37,176 

1000 РАТА 42,8,255,35,35,126, 35, 
102 

1010 DATA 111,237,75,4,255, 9,235 
‚42 

1020 DATA 8,255,35,35,115,35,114 
,195 

1030 DATA 9,254,62,255,9,60,218, 
246 

1040 DATA 254,237,66,198,48,201, 
0,0 

1050 DATA 0,0,0,0,0,0,0,0 

1060 DATA 236,237,229,247,225,24 
0,128,70 

1070 DATA 114,111,109,160,84,111 
,160,83 

1080 DATA 116,97,114,116,160,83, 
116,101 

1090 DATA 112,160,80,97,114,97,1 
09,101 

1100 DATA 116,101,114,32,69,114, 
114,111 

1110 DATA 242:73,109:112, HT, 115 
;115, 106 

1120 DATA 98,108,101,32,82,101,1 
10,117 

1130 DATA 109,98,101,114,105,110 
,103,160 

1140 DATA 69,120,112,114,101,115 
,115,105 

1150 DATA !11,110,32,73, 110,160 


Spectrum renumber 
versione per ZX Spectrum 48K 


programma rilocatore 


10 INPUT "Nuovo indirizzo: ",n 
s LET k=n-64458 

20 FOR j=1 TO 73: READ г: 
LET a=PEEK (n+r)+256* 
PEEK (n+r+1)+k: POKE п+г+1, 
INT (a/256): POKE n+r,a-256 
*PEEK (n+r+1): NEXT j 

30 DATA 8,12,25,28,34,39,47,65 
711, 81,90,97,106,121,1312. 14 


0,144,169,184,189,208,221,2 
35,257,260,264,267,270,274, 
219,293,3001,3085,310,3]1 3; 217 
,320,425,436,442,498 

40 DATA 512,517,523,536,546,57 
6,581,585,595,605,612,620,6 
63,675,683,689,696,703,713, 
722,727,744,751,754,762,768 
,773,785,795,800,808,815 


Spectrum renumber 
versione per ZX Spectrum 48K 


programma checksum 


10 LET b=0: FOR К-64458 ТО 653 
54 STEP 8: LET а-0: FOR 3-0 


Spectrum renumber: il codice oggetto 


64458 = ЕВСА: АР; CD 701; 16 СР 
64466 = F BDZ: 10 ЕЕ АЕ СО ОЕ 
64474 = FBDA: 2А: 53 5C 18 06 
64482 = ЕРЕ: Ce BL EÇ 22: 00 
64490 = ЕВЕЙ: Ори IO FE” ЗЕ 
64498 = PRES: FD аб QE: CD. 6E 
64506 = РВЕА: ЕС CD: B8 19 

64514 = ЕС02: CO 
64522 = ЕСОА: 22 02: FE 18 

64530 = FC12: ЕЕ ЛА 67 13 

64538 = ЕСА: 2A 00 FF A7 ED 
64546 = FC22: Е СЭВ FC 01 
64554 = ЕС2А: SB 00: ГЕ. 1А ГЕ 
64562 = FC32: СЪГФА “02 РЕ ANT 
64570 - FC3A: ОА EB CD B8 19 
64578 - FC42: ЕЕ 03 С5 СО 6В 
64586 - ЕС4А: ЕЕ: ЗЕ: 02 CD OE 
64594 = F C52: 21 0А 00 22 04 
64602 = РОЗА: 00 ЕЕ 2А 53 5С 
64610 -- ЕС62: 28 TA EB 7E 23 
64618 - ЕСбА: 6E 19 EB 7E. 23 
64626 = FC72: 5B 04 ЕЕ А7 ED 
64634 = FC7A: El El 18 33 CD 
64642 = FC82: 10 РЕ ЗЕ 03 CD 
64650 = РОЗА: ОВ АЕ ВС 20 ОА 
64658 = [ C92: ЕЕ El 18 IB 2 
64666 = РОВА: 06 FF DI CD 49 
64674 = ЕСА2: ЕТ 18 ОС ED 5B 
64682 = ЕСАА: 21 38 04 ЕР 52 
64690 = ЕСЕ2: 6B OD 10 FF 
64698 — FCBA: ОА OC 21 3B 5C 
64706 = ЕСС2: се 9€ 12 ЕЗ CD 
64714 —FCCA: 21 IF FE CD 6B 
64722 = FCD2: 53 FE CD 6B FD 
64730 - FCDA: ED 5B 04 FE ED 
64738 = ЕСЕ2: ZC B8 C2 EB ЕС 
64746 = ЕСЕЙ: B 72 23 73 25 
64754 = ЕСР2. 09 23 ЕВ ЕР 4B 
64762 = ЕСЕЙ: EB ЄЗ DE ЕС DD 
64770 — FD02: CD 6B FD DD 21 
64778 - FDOA 6В FD FB C9 CD 
64786 - Ер12 00- 00 06 04 AF 
64794 —FDIA 3A 08 5C D6 30 
64802 = FD22 11 C5 06 00 4Е 
64810 = Ер2А 29 19 29 09 CI 
64818 — FD32 I0 E2 FE DD 


20 


ТО 7: LET a=a+PEEK (k+j): 


NEXT j: LET b=b+a: PRINT k 

I" ea NEXT Е 

LET а-0: вов К-65362 ТО 653 

67: LET а=а+РЕЕК К: NEXT К: 

PRINT "65362 - 6536/" а 

64458 - 65367",b+a 
OD 11 - 745 =:02E9 
20 05 - 955 = ОЗВВ 
6Е 19 - 587 - 024В 
со 6В - 1224 = 04С8 
CD OE = 583 = 0247 
C2 В = 1018 - ОЗҒА 
40 38 - 1066 = 042A 
4В 5С - 538 = 021А 
53. 02 - 660 = 0294 
TB: E5 = 796 = 031C 
38 04 = 843 = 034B 
ЕЕ ED = 1597 = 063D 
30 -11 = 755 = 02F3 
52 28 = 1022 - ОЗЕЕ 
03 18 = 879 - 036Е 
1]: 170 z797 = 031D 
20 03 = 826 = 033A 
ED 5B = 664 = 0298 
ED 52 = 958 = 03BE 
67 CD = 880 = 0370 
67 ED = 981 = 03D5 
38 04 = 896 = 0380 
OD 11 = 867 = 0363 
ЕО 28 = 848 - 0350 
20 07 - 644 - 0284 
00222 = 578 = 0242 
30 03 - 943 - ОЗАҒ 
ЕЕ 19 es = 0369 
14 CD = 869 = 0365 
04 СО = 679 = 02A7 
9E Е! = 792 = 0318 
OD DD = 1158 = 0486 
DD 21 = 1137 = 0471 
00 ЕЕ = 1199 = 04AF 
02 ЕЕ = 1156 = 0484 
B9 28 = 1339 = 053B 
23 46 = 501 = 01F5 
ВЕ 09 = 861 = 0350 
63 ЕЕ = 1511 = 05E7 
FE. CD - 1389 = 0560 
ОС 21 = 1072 - 0430 
08 5С = 335 = 014F 
ОА 30 = 732 = 020С 
5D 29 = 517 = 0205 
30 D7 = 770 - 0302 
78 ЕЕ + 1127 = 0467 
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64834 т FD42: 20 D6 ЗА 08 5C 06 30 18 = 690 = 0282 


‚ 64826 - FD3A: 04 СЭ PE РС 28 ОВ 78 AY - 1017 = 03Ғ9 
64842 - FD4A: E9 78 ГЕ 04 28 СА ЗЕ 08 - 923 = 0398 
64850 — FD52: D7 SE 20 D7 ЗЕ 08 DA C5 = 1006 = 03EE 
64858 РОВА: IE FE РЕ 01 ПА 00 A7 ED = 942 = O3AE 
64866 т.2062; 42 13 30 ЕВ EB СЪ 04 18 = 840 = 0348 
64874 - FD6A: АВ 2A 53 5С ТЕ FE 40 DO - 1040 - 0410 
64882 Ерла: 22 08 ЕК 16 Ol JE 90 DS = 563 = 0233 
64890 с РОТА: ср 88 19 C2 11 FE 23 E = 992 = 03E0 
64898 = РОВ: EB 21 OA FF Ul 06 00 Ер - 777 - 0309 
64906 m ПОЗА. Bi ЕВ 28 IF FE F8 20 77 = 1136 = 0470 
64914 - FD92: 23 7E CD Вб 18 FE 22 20 = 892 - 037С 
64922 с ГОА 06 23 ВЕ 20 ЕС I8 FI PE = 1034 < 040А 
64930 г рад: OD 28 6С РЕ ЗА 28 60 FE - 863 = 035F 
64938 — FDAA: СА 20 E5 23 Е FE Ор 28 = 931 = 03A3 
64946 = Ерва: БЕ FE ЗА 28 52 D6 30 FE = 1044 = 0414 
64954 — РОВА: ОА DA AD FD FE DE 20 ОҒ - 1177 = 0499 
64962 = FDC2: 01 06 00 09 7Е FE 00 СА - 611 - 0263 
‘64970 = FDCA: 04 РЕ ЕЕ ЗА СА 04 РЕ DD - 1251 < 04ЕЗ 
64978 - FDD2: ES El 11 63 FE А7 ED 52 = 1310 = 051E 
64986 — FDDA: 20 2D ЗЕ 07 СВО 16 11 - 386 = 0182 
04994 = FDE2: 10 FF ЗЕ 06 ЕВ CD ОА OC - 817 - 0331 
65002 - РОЕА: F3 2A 08 ЕЕ 46 23 АЕ Ср - 936 = 03A8 
65010 -ЕРЕ?: IB ТА ЗЕ ЗА D7 СІ C5 48 - 850 - 0352 
65018 > РОВА: 06 00 CD IB 1А SE OD D7 = 554 = 022A 
65026 = РЕ0: 18 05 2B 2B 2B DD E9 2A = 654 = 028Е 
65034 - ЕЕОА: 08 FE DI СЗ 17 FD DI - 1268 - 04Ғ4 
65042 = ВЕТО. ЗА 08 ЕЕ 23 23 4E 23 46 = 558 = 022Е 
65050 = FEIA: 09 23 C3 6E FD 7E 23 66 = 865 = 0361 
65058 = FE22: 6F CD OE 19 СА 09 FE AE = 1091 = 0443 
65066 —FE2A: CD 01 16 1! 10 FF ЗЕ 05 = 583 = 0247 
65074 = РЕЗ2: CD ОА ОС 2А 08 ЕЕ 46 23 = 637 = 027р 
65082 - ВЕЗА: CAE CO IB ТА 3E ЗА DZ Cl = 864 = 0360 
65090 - FE42: 48 06 00 CD IB 1А 21 3B = 428 = 01AC 
65098 一 FE4A: БС СВ 9E Е! Е! FB СЗ 9C - 1505 = 05Е1 
65106 = FESZ 12 ЕБ Б 23 66 GF СР GE = 936 = 03A8 
65114 = РЕ5А: 19 ЕВ El 73 23 72 C3 09 - 953 - 03В9 
65122 = ЕЕ62: ЕЕ БЕ 23 56 1А 77 13 2B - 676 - 02А4 
65130 - FE6A: ЈА 77 СЗ 09 FE E» 7E 23 = 993 = 03E1 
65138 = РЕ72: 66 6E Ш 00 FF OI 18 ЕС = 762 = 02FA 
65146 = БЕГА: CD F4 ЕЕ 12 01 9C FF CD = 1338 = 053А 
65154 = FE82: F4 ЕЕ 13 12 OE Е6 CD F4 = 1244 = 04DC 
65162 - РЕВА: ЕЕ 13 12 7D Co 30 ІЗ 12 = 699 = 02BD 
65170 = ЕЕ92: 21 00 ЕЕ 01 04 00 ЗЕ 30 < 403 = 0193 
65178 = БЕӘА: ВЕ С2 АЗ FE 23 Ор C3 9A = 1198 = 04АЕ 
65186 = FEA2: РЕ ЕЗ 11 FC FF 19 16 00 - 1052 = 041C 
65194 - РЕАА: 2B 14 7E D6 30 FE OA РА - 933 = 03A5 
65202 = БЕВА АА ВЕ 23 С5 79 92 32 04 = 977 = 03р1 
65210 — FEBA: FF D2 СС FE ED 44 АҒ ЗЕ = 1369 = 0559 
65218 = FECZ: FF 32 05 FF CD Е8 19 C3 = 1222 = 04C6 
65226 = FECA: D5 FE 4F AF 32 05 FF CD = 1236 = 04D4 
65234 = FED2: 55 16 23 ЕВ СЕ ЕЁ ED BO - 1208 - 04В8 
65242 - FEDA: 2А 08 ЕЕ 23 23 JE- 23 66 = 638 = 027Е 
65250 = PEE2: 6F ED 46 04 FF 09 EB 2А = 968 = 03С8 
65258 - ҒЕЕА: 08 ЕЕ 23 23 73 23 72 СЗ - 792 - 0318 
65266 = FEF2: 09 FE ЗЕ FF 09 ЗС DA F5 = 1113 = 0459 
65274 — ҒЕБА: ВЕ ED 42-66 30 C9 0 00 = 1004 = ОЗЕС 
65282 — 2202: 00 00 00 00 00 00 00 00 = = 0000 
65290 - ЕЕОА: EC ED ES F7 El FO 80 46 = 1612 = 064C 
65298 ЕР: 72 6F 6D А0 54 6F А0 53 - 932 = 03A4 
65306 = FF1A: 74 61 72 74 A0 53 74 65 = 903 = 0387 
65314 = FF22: 710 АО 50 61 72 01 6D 65 - 870 - 0366 
65322 - ҒЕ2А: 741265 72 20 45 72 72 6E - 771 - 0303 
65330 = FE32: F2 49 6D 70 OF 73 73 69 = 982 = 03D6 
65338 — FF3A: 62 6С 65 20 52 65 6E 75 = 749 = 02ED 
65346 - ЕЕ42: 6D 62 65 72 69 6Е 67 АО = 900 = 0384 
65354 - ЕЕ4А: 4578 70 72 65 73. 73 69 = 851 = 0353 
65362 = FPF52: 6Е 66: 20 49 6Е АО = 596 = 0254 


IL LISTATO ASSEMBLER DI SPECTRUM RENUMBER 


34 . suPERSINC® 3/85 


di Eliot Groves 
trad. е adatt. 
di Angelo Motta 


$ uno scienziato di una centrale nu- 
cleare che inavvertitamente ha inseri- 
to il meccanismo di autodistruzione della 
base al posto di premere l'interruttore 
per accendere la luce. Vi 6 una sola possi- 
bilità per fermare la reazione a catena: 
cercare attraverso i corridoi della base i 
numeri della combinazione per aprire la 
stanza del reattore, raggiungere tale stan- 
za, inserire la combinazione, entrare e 
premere il pulsante giusto, che fermerà 
l'autodistruzione. 

Quanto sopra tenendo presente che: il 
tempo a disposizione e limitato, i muri dei 
corridoi sono radioattivi ed in caso di urto 
cadrete senza vita, avete solo tre tentativi 
per inserire la combinazione esatta per 
aprire la stanza del reattore (delle 6 pos- 
sibili con 3 numeri) e all'interno di tale 
stanza troverete due interruttori: uno fer- 
ma la reazione, l'altro fa esplodere la ba- 
se. 

Il video mostra: in alto a sinistra una par- 
te dei corridoi della base con voi al cen- 


tro; in alto a destra il reattore con il tem- 


po rimasto a disposizione; in basso a sini- XeY 
stra i numeri delle combinazioni trovate; AeB 
in basso a destra la porta di accesso alla 

stanza del reattore. R 

Per muovervi dovrete inserite i tasti con T 


le direzioni indicate dalle rispettive frecce T1 
(5-6-7- 8). Se volete una visione della A$(13,13) 
base dall'alto, dovrete inserire “Н” B$ 

(HELP) e se invece volete fermare il gio- GeH 

co, dovrete inserire ^S" (STOP). NeM 

Le REM inserite nel listato rendono chia- 
ra la spiegazione dei singoli blocchi di cui C$ 
il programma ë composto. 


Reazione a catena 
versione per ZX81 16K 


REM RERZIONE R CRTENR 
REH 


REH 
PRINT TAB ?;" REAZIONE Я CAT 


Descrizione delle variabili 


coordinate della vostra posizione nei corridoi della base 
coordinate dei codici della combinazione per avere ac- 
cesso alla stanza del reattore, sparsi lungo i corridoi 
determina casualmente i codici della combinazione 
contatore usato per decrementare il tempo a video 
contatore del tempo 

matrice contenente la mappa della base 

stringa contenente i possibili codici della combinazione 
usati per visualizzare il punto della base dove vi trovate 
usati per controllare la mappa della base durante la mos- 
sa 

contiene la combinazione di accesso al reattore 


_ 30 PRINT ,," VUOI LE ISTRUZI 

ОМІ? (5/М)" 

ә 59 IF INKEYs-"S" THEN GOTO 800 
SQ IF INKEY$<>"N" " 
139 IE, $<>"N" THEN GOTO 40 
121 RE 


M URRIRBILI INIZIRLI 
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H 
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" Pr 
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D6RRG 


ЕЕК l643564256*PEEK 
(64000 THEN GOTO 2000 


TOUT ANN 


ERTTORE 


220 

300 

391 МАРРЯ DELLO SCHERMO 

319 Е=4 TO 12 STEP 4 

320 ра4 ТО 12 STEP 4 

згг Ма (х-г) *(F 74) 

354 Ме(Ұ-2) + (674) 

326 53022 

328 LET H=0- 
„332 IF ASIN, nid В THEN вото 3 
_ 385 PRINT RT G,H;" "; тав H; 
ШЕШЕ та н?! GTA н, --— 
524% IF ASIN,M) <>" " THEN б 3 
345 PRINT НТ с.н; " ТАБ Н; > 

"TAB н; “ "ТАВ Hi" А 

„350 Е R&iN,M) "7X" THEN GOTO 3 
p 

355 PRINT RT G,H; "Ш; тав H; 
АЗЫ E; ТАВ н; "86; ТАБ H; '' 
„398 it CODE Н%(М,М) «156 THEN GO 
365 PRINT в TOM veu Е us Ші 
q Е; тав H; "l Е"; ТАВ H; "кей 

72 IF CODE R$ MIS us THEN PR 
INT AT в+2,Н+1: "В; я (Х,У) 

375 IF CODE ВХ, >) 3188 THEN GO 
зов 500 

388 NEXT Q 

385 NEXT F 
2399 ТЕ ASiX,Y)2"lM'" THEN GOTO 79 


% 
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зза ы” зада Y)s"X" AND С=3 THEN 
SOTO 

395 RETURN 

490 REM 

481 БЕН MOSSA 
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N GOSUB 6500 
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MEL 5; "МЕШИ" 


Oi ui ОЛ ССС O) Ef е е £x FREE. 
£& P. Com Tor SG бу (Л Ф C) н PO Hn fou 


uns 
ранг ога 


E GGCGupO-)0:x09)09009 GS 
арор рар раа 


зээ э i G C а 


$ (VU, TO 12); R 


ecco dica 


0220202 nZ-- 
-ъ 


MURO RRDIORTTIUO 


T RT 5,5; P" тав 5,” 
E. ^y |; TRE 5;' ыі’ 


RT б % 
борт пола "Шы: 


Mi ft fa лн раи 


5-4 


TIE UL 


^J 
bre P 
пе CO*OC aC IO r> C) Co fa G G 


E 
n 
w 
(Л 


5:3, 


^T 
COREA Ca ca foi 
:02 0м ог mur 
мост nm-m-om-ommmoaomcarm-:commmmmco-mqmwmnmm 


0-1-1-41-4:-4 


-- 


во 


I CONTROLLO 


“fo 


О 
у, 
1 
ñ 
4 


zH 
гг 4206 020912020 2060)2 1 


--:-2:20GU GUI бб егісін Те ейін 
—r pmm--mmommmzcrm с 


1 = T! Ti B) == е б бр 00-10 


1: 


-поса 


ооо +  жоочойаон та, с ззоевшвозенешово ә о собосолчвозяпозшог- 

x мово *üi:*0IL-2540 іоасоанш 0 го OGjr--doOü00100002-4: ш «DOGS МАҒЫ ded ICI 
94199999 ж|– *9IXAS это Ез фл Тісішігіз бсішіс да Г) аня шчолач 0091111414444 4 
сулу о хот аа ка жт у шнш Э СН 1 Г мыш jmiiuymotmrmnmumrnmz«bmamagmmmmmmmmmaammoemgm 


І өзі жож шо OG ошшраа э Z о ғ ZI о 
т о 
! ва жж ан а таса: I H о о засно i: 
A жаж по sO но A GK = H H— H N ЕЕ 
І о жж О TO ш O uu H Z Z ма зон 2 
1 or жшж НЕ НО ZHPH и T O ш а HJ ша z ш 口 
П ro *z* по HJ «шош отг во de è н-т = 
I об *O* та JO шшаг2а ш F 3 Ее Е = 
І e жнж я с ахонош Z а aq- га x н 
2 *N* шн юн -т5шона б: ш о н 2 шоо ш o а 
zu жаж то HOCOZOON нна ч қ DIZWU- аа d н 
WI *u* O V 24 Tu ND ча Оһо A u 
IF- жаж аш Фашшнш -Z гнш ш шнн - Z ш а 
c ж ж аа: OJO ошно ш-2 м >: CONH > 4 3 
de н ж ж шо-ала шне: вен «v о-шошоу: о на 
2z Z ж ж Fu шондоОЕК-ғалг зшънко - JI 4 a 
X G ж ж ара) ааороошаоз о хоаан>на5 зо ш o E 
н ж ж шоаоӘасшо-ос2 нш ^ о шо ой ш ^ Q «Тіс: one 
> ы ж ж осон ые | а «оно? ~ шо нчошю Z v -ивпининвя-- 
2 ж ж - Яга шот шашнаас # шашгдашно: : м а о--------- DA 
І zx а жжя- ищо ча ния - > ашанайа- > > өй HOO HIDIDP- 004 
- LA b же uu О Иле: O У ubi)! LAT ммм 
P ARER R FR R F P 
I z H ж ж-ғао-ан-ш2гннг2ік2- Z з rui ul i 
I : HH а ОНИ ас d z zünzercz Бас: Чтттасасааста 
| ыз ПЕ --- шш» шнон (HZzH нган: H ЕГЕКОСЕ-Е-І---ЕІЕЕІ- 
| i I RR EI O S 
г 
š 2.2 ООН? айма HD ара ша, обажаоо 13-4-3334 
i 
[ 
Г 
Г 
I 


в о + ~ T сы bi: = Fo f- 2 та 2... -- t^ «ii s. se 
“ - - q ` Sani --2---- -- ә -- ач чаа чо CQ 
o о н [16] z: ше: - Em A 2 .~ маз G qq ма (Qi 
(5 - ю сі.- Hu I Та в: - s - n a - - 
о - т 9 A оно JJ о шн O 4 + D I O 
- = = e ө ко сан э: - T е 
о ш -- 6 Esa нан a.~ O 10 шо ~ ББ БЕБЕ k © 
о г ш - d --0-- я: --O A о с) 202. qur «rc ug wc ada <s 
A E a A @& = z S то ті о THN о м 
22722 * о wer N 2D Ея чар іп + Z Mou а. Ete -- Fk ы 
-ш ш о “ | Ж: ES а з IT 一 ш oO ar x Z2 22 22 2 е 
от iD ex =: Q qu ЕЕЕ 68 го то Ww I E- т.-: ш HH HH HH H ғ 
ж|- — E -n 8 F -- -~- -~ «X ОТТ а 9- ж ғр © J4- - & « «ac aa ao 
ош л + шо ор- e. Е: CO (au - cw nua a à à оа a о 
Ж” 一 a мох Qi a 09° --04-- ----0: vac а ч.- --9 о юю 
да w о ч юг -— ш я - = did <: Шс dH Ш У 29е @ Q + ча? Z ZZ 22 c € 
-: о - [5] шет го 中 10- ~ -WH -E 一 ош - ка d ~ -wW tf шшщ ш ш ш ш 
D ^W о мон AIH 2 “кке О? чо „ош тов оҥ о ГЕТЕ tr E E 
poro ж КЕК Z Б zs mor ЖЖ сов. CK h X ғғ сә т чоо Б F F F F- F F 
жу м. LÀ H presa @ GK ғ-ж-ж-Ч- | ІІ 20 -a Z O к -::0 ғы +33 © 
HHX- H ASU H- TUO ч  ш ахаха : за CUI с но с за пас Z ODAJA 0-4 Ú 0 г no 
пи- ми uou O не H ны. ина а ян (.-" 2 Е: --. ш п мо ^H ц оса O SAAJU ни яй в UA 
цам о LHO н> HOi а PX-x-THDL kZ:-: ШЕЕ чел vie ғаш оғ CON SENSN ЧИ e aco 
в - Е 29 -г2а 5 |-- ғо 2 2 261 ZpLZo4-ozz DI 9 г-2тоо wure в ғ ro 
Kr х0. ан xHLp x сх-Е<ЕсЕН-НІ-Н.- KHXHT WWHT ra снжнро Е -хжх к 
эши шшшшогв ош шо-ш - ощошшшошоша: юосшоц ю2209: Zu, LOKU: г2ошшшшоощц и iL и. по. LO 
и 2932 ги нн LI кейн iis "лекке mi gt Ен: cat крга (соту H HH HH н но 
опзопосополопо-г-з-9озшопо 1 опоозиенонон. -AHOA -NAOS SNO ©з ---00яч90г-9:0: в:ш: ©: ш: в: ше 
(yQ + D T< О O Q: ©) © — ©) 00 ©) — #t(U 030 + #ппоюпгезечаано- : 4400 - T 0 LINO “ñC ID SGS D iD 5 r- IS «oo 
(040 (0 (0 (0(D(D ОООО оо m n n сісісісісісігісі 9990 -шпз0онозе9 goooge 99990999 A © зо 9 99 
= 3444 44 -4-+4 ін Ат нт Т кииин ЕКЕ tm ggmammamanec ns пп m- OW п um 


SUPERSINC® 3/85 - 37 


EIN EDICOLA 


1 LET Я$ (12) =" ü a" 
2 LET 9$ (13) 8611) 
ð GOSUB 9200 
5 LET ASCA ,Bla"x" 
2 LET Вё= MO 
1 LET сфе "ХХХ" 
5 FOR Е=1 TO З 
Š LET RsINT (ВМО+10) +1 
|! 了 LET С6ІЕ) «86 (Б) 
| 8 60508 9200 | 
9 LET АФ СА, В) «Св (Е) 
| 2 NEXT Е 
ІІІ а RETURN 
@ LET AsINT (вчмор#13) +1 
а СЕТ BsINT (БМбО%13)41 
5 IF й=Х AND BaY THEN GOTO 92 


ð IF R$(R,B) <>" " THEN GOTO 9 
RETURN 


EXI F 

FOR Е=1 TO 13 

PRINT RT 4+F,9;A$(F) 
МЕХТ Е 


ALI UD AO) MSI OI DI I USI SUD. UD UC UD fO D (S; VD UU UD UD UD DD CD UO D UO UD D UC UD 
ID JN -J-JIO CU TO GIO FO fO I II IB I ве IB P if ре ү 


ð 

а 

ә 

© RETURN 
0 CLERR 

8 SAVE "REAZIONE" 
@ RUN 
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di Oliver Fritsch 


trad. е adatt. di Angelo Motta 


n pazzo ha messo una bomba ad oro- 
logeria in un palazzo. Cercatela e to- 
gliete il detonatore prima che il tempo a 
disposizione finisca e la città sia devasta- 


ta. 


Quando darete il RUN a questo program- 
ma vi verrà chiesto a quale livello di abili- 
tà vorrete giocare: principiante, amatore 
o esperto. À scelta compiuta, in base alla 
difficoltà selezionata, lo ZX81 assegnerà 
il tempo a disposizione prima che la bom- 
ba esploda e quindi vi mostrerà una vedu- 
ta aerea della città. Voi siete l'asterisco 
che compare in basso allo schermo e per 
muovervi dovete utilizzare i tasti con le 
frecce. 

Per entrare in un edificio basterà toccare 
i caratteri che lo formano, al che lo ZX81 
provvederà a far apparire una nuova vi- 
deata riportante l'interno del palazzo. Se 
in esso vi é nascosta la bomba, in una 
delle stanze comparirà la lettera B in in- 
altrimenti dovrete raggiungere 
l'uscita, rappresentata da una A in inver- 
$0, e cercare in un altro palazzo. 
Quando avrete finalmente trovato il pa- 


verso, 


lazzo dove e stata nascosta la bomba 
dovrete toccare la lettere B in inverso per 
accedere alla stanza in cui si trova la bom- 
ba. Qui lo ZX81 farà apparire una terza 
videata rappresentante l'interno della 
stanza, la bomba ed il detonatore (rap- 
presentato da una Z in inverso), che si 
muove dall'alto verso il basso. Per disin- 
nescarlo avete a disposizione tre tentativi 


` 


e per tale operazione dovrete premere il 
tasto “8”. 

Se riuscirete a salvare la città, vi verrà 
assegnato un punteggio proporzionale al 
tempo rimasto a disposizione. 


Cerca la bomba 
versione per ZX81 16K 


i 
3 


ЕЛНЕН 


Ше 


ВЕМ 

REM CERCA 
REM 
LET_RECORDað 
FAST 


M 
БЕН URRIRBILI INIZIRLI 


Pal 
LET ВОМВЕ 8 


12 | 


130 LET V$=" mammam 


92 LET K=12 
195 LET КК=13 
200 LET 214 
295 LET маза 
210 LET С=З 
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moo 
DIET 


€ ONU 
* PPP PG 


Кала 522452352225) 
RINT "ежка СЕНСЕ LA B 
RINT "RE FRERJRGGGg dg 
те хах SCEGLI IL LIVECC 
- "нн ар анта 
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ж 
GD* Dr Dr TMO 


PP: ОЕ a D жэн» 
Mou Южо бж бб 


© Q0 ^4 JO! ж QUI 


опоножотожопопо 


тос ооо 
: во 
一 
om 


1 AND INKEYSz" 
1") + (670 " 
RAO. 27) + (690 AN 
2000 LET 
3212 GOT 
2040 LET 
2030 GOT 
2040 LET 
2252 GOT 
S801 REM E D 
| с 
5891 REM EL VIDEO 
52102 CLS 
5040 FAS 
5030 PO 8,0 
5042 PR Q,0; YS; RT 8,0;YS;R 
T 23,0; 
5960 РО о га 
5070 PRI 1,0; 4“; RT 1,31; "8 
5990 PRINT AT 0,0; "P; 
a Et ua pu e, 31; ULI 
"АТ 23,0; "№"; AT 23.31; "шй" 
5095 PRINT Rr 2.0; É Ате, 31; "4 
5180 PRINT RT 1,11; "ТЕМРО: ";TEM 
м 
5120 IF RA=2 THEN GOTO 8120 
5132 IF RA=1 THEN GOTO 7120 
Stec BEU UESTR Ба. сес 
©: е o С ОО 
Сина”: тво IE" axis 


ат т, diu Pon i 
UE ‘Вибе: Te тербе; 


П “ 

i" M NN mu 
514i zr MR ig... 155.08 
c 2226 | 
ШІ тав ққ; E тыш 
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тав аа"; TAB кк.“ " 

616 И d". AT У "TAB J 
di “TAB чо; 
a TAB gast ' 

5 LOU 

5322 REM LA BOMBA 

6310 IF Nms@ THEN LET XeINT (RND 
* + 

5315 IF ММ=@ THEN LET Y=INT (АМО 
$18) +4 

5330 PRINT AT Ү,х; 

5340 LET Р=РЕЕК (PEEK 16398+256+ 
РЕЕК 16399) 

5358 ТР PzCODE © " ОВ PsCODE "x" 
OR PICODE "M^ THEN бото 6310 
5400 REM MOVIMENTO 

5420 LET MU=15 

5425 LET МО=20 

5427 LET АфзІМКЕҮ$ 

8428 PRINT AT MO,MU;" "j 

5430 LET музму+ (6858) - (фе"5") 

5440 LET MO=MO+(A$="8")-(A$="?") 
5452 PRINT АТ MO,MU; 

5455 LET ы=РЕЕК (РЕЕК 16398+256+ 
РЕЕК 15399) 

5456 IF Q=P THEN LET ВОМВЕ=1 
5460 IF bio THEN GOTO 70 

6465 PRINT ЯТ MO,MU;"«*" 

5495 LET ТЕМРОТЕМРО-1 

5497 PRINT ВТ 1,18; ТЕМРО 

5498 ТЕ ТЕМРО:002 THEN GOTO 9500 

5522 GOTO 6427 

2222 REM INTERNO DEL PALAZZO 
2100 LET RA=I 

2102 LET NMal 

2123 CLS 

2125 GOTO 5205 

2132 REM MURI 

7135 LET Вй=й 

215@ LET WE=INT (RND#13) +5 

2162 LET WC=INT_(RND#15) +4 

7200 PRINT AT НЕ, 9; КУ 

2518 PRINT AT UE,1;" ";TRB WE+4; 
TRO PQ; 

2220 FOR Т=4 TO 21 

7230 PRINT АТ I,UC;CHR$ 128; TAB 
22; CHR$ 128 

7240 NEXT. I 

2300 PRINT RT UE,1;" “TAB WE+4; 
""LTRB 29; 

2310 PRINT АТ 20,3; "+";АТ 4,29;" 
(38g ІР BOMBE=1 THEN PRINT AT Y, 
ха 

2350 SLOU 

2360 LET MU=3 

7370 LET MO=20 

7380 PRINT AT мо,ми;"“; 
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LET У6- ІІ Y 
PRINT RT 16,10," 0";TRB 10;" 


PRINT ВТ 18,10; "Ш"; ТАВ 10;" 


B 10; 

PRINT AT 13,2 

PRINT RT 1219: LM 7298 
17;U$; TAB 170607 75U6;T 
9% 

SLS 

РОВ 1515 


то 19 
ТЕ ТМКЕУ фа "8" THEN 60508 91 
74 PRINT RT I;20; "М" 


аланы AT I,20," " 


АЕТ ТЁМРО=ТЕМРО- 1 
1,18; ТЕМРО 
2 қы GOTO 9500 


ошошюшоюошошюшшш 


O 9509 
N PRINT AT 9,7;“ 
JUS. RT ille; E 
THEN GOTO 3610 


DD 


шюшююшшш 
©) © д ®з› © Ёз ©› © © ТОБОЛ © © © -)9 © ОЛ 


POKE 16424,255 
EXIIT 


LET РОМТТ-ТЕМРО #5 


9540 

3559 М 

3690 GOTO 2560 

96109 

9620 PRINT AT 23,2; "РОМТІ: “; PUN 


La cassetta allegata a questo numero 
di Supersinc contiene, in omaggio, un 
programma realizzato per lo 
Spectrum 48K: 


« FOTOII » 


realizzato da Enrico Franceschetti del 
GRUPPO UTILIZZATORI 
COMPUTER SINCLAIR NAPOLI. 
Per maggiori informazioni, 
rivolgersi al: 
GALC.S. 
c/o Roberto Chimenti 
via Luigi Rizzo, 18 
80124 Napoli NA 
tel. 081/7623121 
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É in edicola ABC personal computer, il corso 
programmato per tutti i personal che ti inse- 
gna il Basic e a dialogare col computer in me- 
no di 6 mesi. 

ABC personal computer ti svelerà tutti i se- 
greti dei personal. Inoltre, se non hai ancora il 
computer, ABC personal computer ti aiuta a 
sceglierlo bene, perché ogni settimana prova 
per te i personal più interessanti. 

ABC personal computer in soli 25 fascicoli set- 
timanali. 

ABC personal computer é un'opera esauriente, 


un Jacksoniano 
personal computer 


rapida e comprensibile a tutti, ideata e realiz- 
zata dagli specialisti del Gruppo Editoriale 
Jackson. 

Il primo numero е in edicola, corri а prender- 
lo: puoi vincere 30 fantastici MSX Philips! 

Ma non solo. ; 
Trovi in regalo il poster del Basic che ti con- 
sente di convertire i programmi di una mac- 
china su qualsiasi altra. 
Diventa un Jacksoniano 
con ABC personal com- 
puter. 


... E VINCI 


30 FANTASTICI 


MSX PHILIPS 


GRUPPO 
EDITORIALE JACKSON 


SOH13 Одапно 


D.M. 4/275258 del 2-3-85 


AUT. MIN. CONC. 


di Gavin Smyth 
trad. e adatt. 
di Marcello Spero 


Un eccezionale arcade intera- 
mente realizzato in linguaggio 
macchina (interamente caricabi- 
le da BASIC) per il vostro Spec- 
trum 


| esie и Ecco un programma che 
supera i problemi di velocità del BA- 
SIC Sinclair. Questo incredibile gioco in 
linguaggio macchina, del tipo "space in- 
vaders", occupa poco piü di 1K, e pertan- 
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to puó girare senza problemi su entrambe 
le versioni dello Spectrum. Non si vuole 
qui insegnare il linguaggio macchina, 
quindi con le istruzioni fornite e possibile 
utilizzare il programma anche senza com- 
prenderne il funzionamento, comunque 
dettagliatamente spiegato qui di segui- 
to. 

Scopo del gioco e la distruzione degli otto 
alieni colorati, simili a ragni, che si muo- 
vono a caso attraverso lo schermo, la- 
sciando cadere delle bombe. 

Dovrete cercare di centrarli, evitando 
contemporaneamente le loro micidiali 


bombe che, se vi colpiscono, vi faranno 
perdere una delle vostre vite. Sempre 
una vita sarà il prezzo che pagherete in 
caso di invasione, с1оё se uno degli alieni 
riuscirà a raggiungere il fondo dello scher- 
mo. 

All'inizio il gioco e abbastanza semplice, 
poiché il vostro laser si muove con una 
velocità che ë circa otto volte quella degli 
alieni; dopo che avrete abbattuto i primi 
tre, peró, la differenza di velocità scende- 
rà a cinque, per ridursi a zero con l’ulti- 
mo: per centrarlo dovrete avere una buo- 
na dose di fortuna, oltre che di abilità! 


Superato questo schermo ne avrete un 
altro, con una vita “extra”; il gioco di 
solito non si protrae oltre i tre schermi. 


Perché questo programma 


Sono molte le ragioni che hanno portato 
alla stesura di questo programma: 

1. Realizzare un gioco meno prevedibile 
di quelli con le famose schiere che mar- 
ciano attraverso lo schermo in file com- 
patte. La casualità aggiunge difficoltà, 
mantenendo breve la durata del gioco. 
2. Creare un gioco divertente, rendendo- 
lo colorato, rumoroso, e, finalmente, im- 
possibile da interrompere. I controlli sono 
“Z” per spostarsi a sinistra, ^X" per spo- 
starsi a destra e lo spazio per fare fuoco. 
Non esiste la possibilità di tornare al BA- 
SIC: l'unico modo di fermare la minaccia 
spaziale e quello di staccare la spina. 

3. Provocare una perenne frustrazione 
nei giocatori, con gli alieni che svolazzano 
indisturbati ed il punteggio che non riesce 
a raggiungere le tre cifre (il contatore arri- 
va fino a 9999, ma non si sono ancora 
visti punteggi al di sopra di 25!!!). 

4. Infine, dimostrare come la ROM possa 
essere usata per semplificare la program- 
mazione, venendo utilizzata per i compiti 
fondamentali, come la visualizzazione dei 
caratteri. 


Routine interessanti 


Ecco alcune delle tecniche usate nel pro- 
gramma per ottenere i massimi risultati 
dalla macchina, pur occupando una 
quantità risibile di memoria. 


NUMERI CASUALI: la subroutine RND 
(indirizzo 32056) restituisce un numero 
abbastanza casuale nel registro A. Ciò 
che fa è spostare un puntatore attraverso 
la ROM e restituire il valore di una sua 
locazione; esiste però una regione inutiliz- 
zata della ROM, a partire da 14446, do- 
ve tutte le locazioni contengono 255. 
Questo crea un interessante periodo di 
gioco, ogni tre schermi circa, in cui gli 
alieni si muovono uniformemente, non 
lanciano bombe ed emettono un suono 
diverso, ma sono pur sempre imprendibi- 
li. 

SUONO: la subroutine BLEEP (31677) è 
usata per emettere un breve suono a ca- 
so. Il suo compito è unicamente quello di 
rallentare il gioco; l’effetto può essere au- 
mentato incrementando il valore di DE 
(cioè il valore delle locazioni 31683-4). 
Questa routine fa uso della subroutine 
ROM BEEPER (949), che controlla l’al- 
toparlante. Si tratta di una delle poche 
routine che usano il registro IX, che va 
quindi preservato con PUSH IX. 


Per usare BEEPER, DE deve contenere 
un numero uguale a INT (frequenza*dura- 
ta), e HL un numero uguale a INT 
(437500/frequenza-30.125). 

Ad esempio, per ottenere un LA a 440Hz 
della durata di 2.5 secondi: 


DE dovrà contenere INT (440*2.5)= 
1100 


НЕ dovrà contenere INT (437500/440. 
30.125)-962 


CONTROLLO DEGLI ALIENI: il registro 
IX ë usato per conservare l'indirizzo di 
inizio dell'area dati relativa a ciascun alie- 
no, semplificando di molto il programma; 
la colonna occupata, ad esempio, e (IX 
+1), per qualunque alieno. 


La grafica 


Il resto delle routine ha a che fare còn la 
grafica: 


CLS (3435): questa routine pulisce sem- 
plicemente lo schermo. 


BORDI (8859): dà al bordo il colore con- 
tenuto nel registro A. Per avere un bordo 
rosso (codice 2), ad esempio: 


LD A,2 
CALL BORDI 


CHANOPEN (5633): per poter visualiz- 
zare qualcosa sullo schermo bisogna che 
venga prima aperto il canale corrispon- 
dente. La parte superiore dello schermo 
ha il canale *S" con codice 2; quindi: 


LD A,2 
CALL CHANOPEN 


PRSTRING (8252): stampa una stringa 
di caratteri di lunghezza pari a BC, che 
inizia all'indirizzo contenuto in DE. Per 
esempio, per stampare la parola “Sin- 
clair”, contenuta in ROM all'indirizzo 
5440: 


LD DE, 5440 
LD BC,8; lunghezza della parola 
CALL PRSTRING 


OUTNUM I (6683): questa routine stam- 
pa il numero intero contenuto in BC; qui 
stampa il punteggio, mentre normalmen- 
te 8 usata per i numeri di linea, ed infatti 
il numero deve essere positivo e minore 
di 10000. Non viene fatto alcun controllo 
a questo riguardo, poiché é estremamen- 
te improbabile che un tale punteggio ven- 
ga raggiunto. 


CLSET (3545): ci sono due modi per spo- 
stare la posizione di stampa sullo scher- 
mo. Uno e usare il codice AT (22) seguito 
dalla nuova posizione, per mezzo di 
PRSTRING о RST 10. Questo metodo 8 
usato nella routine PRINT, indirizzo 
32034. L'altro si serve di CLSET: B deve 
contenere 24 meno il numero di riga, C 
33 meno il numero di colonna. Ad esem- 


pio: 
PRINT AT 5,6 equivale a: 


LD B,19 ; (24-5) 
LD G;27 ; (83-6) 
CALLE GESET 


RST 10 compare spesso nel programma; 
serve infatti a richiamare la routine princi- 
pale di stampa, che visualizza il contenu- 
to di A. Funziona con qualsiasi carattere, 


compresi i "token", i controlli di PAPER 
e INK, i controlli di posizione. Per stam- 
pare una "X" blu, ad esempio: 


LD A,16 ; codice di INK 
RST 10 
LD A,1 ; codice del blu 
RST 10 
LD A,88 ; codice di *X" 
RST 10 


La subroutine MAININT (31206) predi- 
spone alcuni puntatori del sistema: 


UDG: invece di spostare tutti i dati della 
grafica, la routine modifica la variabile di 
sistema UDG (23675) per farla puntare 
ai dati in coda al programma. 


АТТЕР: dare alla locazione 23693 il va- 
lore 7 equivale a PAPER 0: INK 7. Piü 
in generale questa variabile contiene: 


FLASH» 
8+INK 


128+BRIGHT» 64+РАРЕК. 


MASKP: dare a questa variabile il valore 
255 equivale a INK 8: PAPER 8: FLASH 
8: BRIGHT 8, cioè rendere trasparenti 
gli attributi, in modo che lo schermo non 
venga modificato dai caratteri stampati. 
L'alternativa sarebbe una complessa se- 
quenza di codici di colore prima di ogni 
stampa. 


Come usare il programma 


Questo programma è stato studiato per 
essere compatibile con ambedue le ver- 
sioni dello Spectrum. Per questo è stato 
scelto come suo indirizzo di inizio il valore 
31000. Un valore tanto basso da dare 
alla КАМТОР, però, rende lo spazio ri- 
servato al BASIC troppo esiguo per poter 
contenere la lunga lista di numeri che for- 
ma il codice macchina e che è stata scritta 
in forma di istruzioni DATA unicamente 
per poter essere suddivisa in blocchi di 
dieci codici, più il relativo “checksum” 
(cioè la somma dei codici del blocco), nu- 
merati progressivamente in modo che vi 
sia più facile “tenere il segno” mentre co- 
piate. 

I passi da compiere per arrivare ad avere 
il programma funzionante e al sicuro su 
cassetta sono: 

1. Copiate il “programma di caricamen- 
to” e date RUN. Quindi introducete il co- 
dice macchina, cioè i valori che potete 
leggere nel listato “dati”, eccetto il nume- 
ro finale di ogni riga (che serve a control- 
lare l’esattezza dei dati da voi inseriti), 
dando ENTER dopo ogni valore; al termi- 
ne di ciascun blocco verrà fatto automati- 
camente un controllo, consistente in un 
confronto fra la somma dei dieci codici e 
il valore del “checksum” relativo. In caso 
di errore, che verrà segnalato da un op- 
portuno messaggio, dovrete ribattere tut- 
to il blocco. 

2. Giunti al termine dei dati non cedete 
alla tentazione di provare subito il gioco: 
un errore sfuggito ai controlli potrebbe 
costringervi a ricopiare tutto daccapo. 
Date invece NEW (niente paura, il codice 
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ë al sicuro oltre la КАМТОР) e copiate 
il “programma iniziale". Per salvare il lin- 
guaggio macchina e il programma, neces- 
sario a farlo partire, date GO TO 40 (in 
questo caso 8 meglio di RUN, perché ob- 
bliga a farlo seguire da un numero di li- 
nea): verrà salvato prima il programma 
e subito di seguito il codice. Eseguite tutte 
le manovre connesse con la registrazione, 
verificate ambedue le registrazioni con 
VERIEY VERIEY «CODE. 

3. Per far partire il gioco basta dare 
LOAD “galact”. Per questa prima volta, 
peró, avendo già tutto in memoria e suffi- 
ciente dare RANDOMIZE USR 31000. 
Se tutto e a posto, appariranno le istru- 
zioni, e poi state a vedere! 

Nel caso, ínvece, che il programma si 
bloccasse spegnete il computer, riaccen- 


lo"; date RUN, ricaricando cosi tutto il 
codice, e controllatelo valore per valore 
con la lista dei DATA, ricordandovi di 
non prendere in considerazione l'ultimo 
valore di ciascun blocco (8 il “сһе- 
cksum"). Trovato l'errore correggetelo 
con una POKE all'indirizzo relativo, che 
leggerete sullo schermo, e seguite di nuo- 
vo la procedura di salvataggio descritta 
prima. 


Prima di lasciarvi alla pratica, un'ultima 
cosa. Le istruzioni e le varie scritte che 
appaiono durante il gioco sono state la- 
sciate in inglese; questo non tanto perché 
fosse complesso tradurle, quanto per 
l'inutilità di questo lavoro: tutti noi, infat- 
ti, siamo ormai abituati ad usare, a casa 
nostra o in sala giochi, dei “games” іп 


Schema del programma 


START 

call MANINT; inizializza le varia- 
bili di sistema e il 
puntatore per i nu- 
meri casuali. 

NEWG 


call NEWGAME; predispone pun- 
teggio (0), vite (4), 
stampa le istruzio- 
ni e attende che 
sia premuto EN- 
TER. 
SCREEN call SETUP; stampa punteggio, 
record, vite, pre- 
para gli attributi di 
schermo (in bande 
di colori diversi). 
MAINLOOP 


detelo e copiate il *programma di control- 


lingua originale. 


per ogni alieno: 
controlla le vite. 


DATA 81,125,6,8,58,78,125,1 
67,40,82,770 
DATA 58,75,125,167,40,61,94 
35.86 „353776 

DATA 228/197,213,221,225,22 
1,126, 1,167,30, 1630 

DATA 40,205,203,121,221,229 
,6,8,33,81,1147 

DATA 125,94,35,86,35,229,19 
Тұла, 2277229/1%60 

DATA 221,126,1,167,4C,9,205 
„131,121,205,1.226 

DATA 157,127;205;168;121,19 
3,225,16,228,221,1629 

DATA 225,193,225,16,185,24, 
178,33,78,125,1282 

DATA 52,17,64,0,33,0,32,205 
;8181,3,587 

DATA 24,160,205,196,122,24, 
15272217 1267071230 

DATA 254,21;192,205,27,124, 
42,73,125,43,1106 

DATA 34,73,125,205,208,123, 
201,221,126,0,1316 

ПАТА 33,79,125,190,192,221, 
126; 135, 7901192 

БАТА 204,208,123,201,221,12 
6;5,/254,21:;192,1555 

DATA 221,70,6,58,76,125,205 
ІТ87,121,20Б.,1.274 

БАТА 186,124,201,61,184,204 
,27,124,60,184,1355 

РАТА 204,27,124,60,184,204, 
27,124,201,205,1360 

БАТА 1,123,205,249,124,221, 
126,6,167,196,1418 

БАТА 118,124,205,129,123,20 
5,228,124,58,80,1394 


Galattoidi 
versione per ZX Spectrum 20 
16K/48K 
caricamento 
30 
] REM 
***PROGRAMMA DI CARICAMEN 40 
TO* х Ж \ 
50 
10 CLEAR 30999 
20 FOR 1s10.TO 1420 STEP 10 60 
30 LET с-0 
4) PRINT AT 9,10»"blocco ";i'' 70 
50 FOR 3-1 TO 10 80 
60 INPUT а 
70 LET c=c+a 90 
80 POKE (30999+i-10+j),a 
90 PRINT TAB 12;а 100 
100 NEXT j 
110 INPUT. а 110 
1208 (6755 
130 ТЕ а< Ус THEN СО то 200 120 
140 КЕХТ 1 
156; PRINT AT 10,10;"finé codice 130 
" 
160 STOP 140 
200. PRINT AT 10,0; TAB 13; 
FLASH l: "errore," ""даге Е 150 
NTER е ribattere il blocco" 
160 
210 ТЕ ТМКЕУЗ<>"" THEN 
СОТО 210 170 
220 PAUSE 0 
230 CLS 180 
240-GO TO 30 
Dolto 12) 
y: 200 
HÜSDATA-205,230,1214,205,7,122, 
2057542, 122, 33 DATE 210 
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DATA 125,167,196,150,124,20 


220 


230 
240 


250 


260 
270 


280 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


480 


1,33,74,126,34,1230 
DATAST234.,92,52,7,39,141,92, 
119,62,255,986 


БАША 295.119.175 205.155,34, 
958.120, 92 YT T3004 

DATA 237795423D5311103, 34,1 
T8,92120]17 175 1316 

DATA SO зара под 250,78, 1 
25, 2405107, 879 

DATA. ]hƏr 6225 205,1,224,17,15 
3,125,1,601 

DATA 32,0,205,60,32,1,5,24, 
205,21 7,2784 

DATA 134,2374,75,11,125,205,2 
7,26,17,197,993 


РАТА 125,1411354105,205,60,32, 
625,191,219,1028 

DATA 254,230,1,32,248,201,2 
0512707, 15252571353 

DATA 2,0% 12227177753, 725, 
1,32,0, 558 

DATA 209,50,3211,5,24,)205,2 
1777352377999 

DATA Jai 1253 2055 27:26 1, 
26,24,205,785 

DATA 217,13,237, 75,73,125,2 
05,27,26,1,999 

DATA 15,242,205 .217;:15,237,7 
57 787 125767995 

DATA 0,205,27,20,33,0;88,962 
,7,6,454 

DATA 128,119,35:16,252,61,2 
54,2,32,245,1144 

ПАТА 62,8,50,75,125,33,81, 1 
25,6;8;573 

DATA 94;235,66735;213;221,22 
5,175,221,119,1424 

DATA 6122 1117120. 221,52,0,2 
05,56,125,998 

ПАТА 230,2,61,221,119,4,205 
‚965 125723071253 

DATA 15,799,8,221,1179,1,16, 
218,62,7,865 

DATA. 50,70,1253,175,50,80,12 
5,201,17,185,1084 

DATA 125421.12:05,205,60,32,3 
3,32,88,588 

DATA 17,33,88,6,82,229,213, 
197,205,56,1126 

DATA. 125,1,127,2,119,237,17 
6,241,245,47,1320 

DATA 230,7,60,103,205,56,12 
ar 1T,17,16,930 

DATA 0,205,181,3,193,209,22 
5,16,222,33,1287 


490 
500 
510 


520 


530 


540 
550 


560 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
130 
740 
750 


760 


DATA 0,48,17,80,0,205,181,3 
,201,221,956 

DATA 126,0,291,119;2, 221,12 
5.1.291 Sor 1156 

РАТА 3,205,56,125,230,15, 32 
‚15,205, 56, 942 

БАТА 125,230,3,32:5,221,6%: 
0,24,3,696 

DATA 221,52,0,221,126.4,221 
1341. 221 1201 n 


DATA 119,1,254,1,40,15,254, 
30,40,11,765 

DATA 221,126,0,167,40,5,254 
,21,200,24,1058 

DATA 124221,126,2,221,119,0 
,221,126,3,1051 


DATA 9220:1/931/2210126;1%25 
4,2,204,120,1269 

РАТА 123,254,29,204,120,123 
,205,56,125,230,1469 

DATA 15,204;120;123,221;126 
:6,167,192,205,1379 

DATA 56,125,230,1,192,221,1 
26,0,221,119,1291 

РАТА 5,221,126, 1,223, 009. 6, 
201 ,221,126, FEAT 

DATA 4,237,68,221,119,4,201 
580571892122 чат 

DATA 33,76,125,62,127,219,2 
54,230,1,32,1159 

DATA 15,58,80,125,167,32,9, 
126,50,80,742 

DATA 125,62,21,50,79,125,12 
6,50,77,125,840 

DATA 62,254,219,254,203,87, 
32,1552) 30. 1:394 

DATA 2,32,1,53,126,254,4,40 
,3,254,769 

DATA 27,192,58,77,125,119,2 
01,205,56,125,1185 

DATA 246,15,17,16,0,38,1,11 
1,221,229,894 

DATA 205,181,3,221,225,201, 
33,95,125,53,1339 

DATA 62,147,221,70,0,221,78 
(1, 205,73, 1078 

DATA 124,175,221,119,1,50,8 
0,125,42,73., 101.0 

DATA 125,35,34,73,125,58,72 
,125,188,40,875 

DATA 7,56,11;34;742125;28/6 
,58,71,463 

DATA 125,189,56,245,1,26,24 
(205.2432. 1225401 

РАТА 237,75,73;125,205;27,2 
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770 
780 


790 


800 


810 
820 
830 


840 


850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


1030 


6, 1,)5,24,798 

DATA 205,217,13,237,75,71,1 
25,205,27,26,1201 

DATA 201,58,76,125,6,21,79, 
62,144,205,977 


DATA 73,124,1,15,24,205,217 
(3,22, 78,783 

DATA 125,53,6,0,78,205,27,2 
6,62,22,604 


DATA 215,58,79,125,215,58,8 
0,125,215,602,12342 

DATA 32,215,775,50,80;125,2 
01,221,229,245,1573 

DATA 197;6,21;720,50,77,125 
,193,197,62,1048 

БАТА 150,205,205,124,193,24 
1,245,197,205,205,1970 


РАТА 124,58,77,125,71,16,23 
2,193,205,14,1115 

DATA 125,241,221,225,175,20 
5,155,34,205,186,1772 

DATA 124,201,62,22,215,221, 
126,5,215,221,1412 

DATA 126,6,215,62,32,215,22 
1,52,5,62,996 

DATA 22,215,221,126,5,215,2 
2151265,6;215, 1373 

DATA 62,154,215,201,33,79,1 
25,62,22,215,1168 

РАТА 126,215,58,80,125,215, 
62,32,215,53,1181 

РАТА 40,13,62,22,215,126,21 
5,58,80,125,956 

РАТА 215,62,153,215,201,175 
,50,80,125,201,1477 

DATA 62,22,215,221,126,5,21 
5,221,126,6,1219 

РАТА 215,62,32,215,175,221, 
119,6,201,205,1451 

РАТА 34,125,38,2,22,0,205,5 
6,125,230,837 

DATA 31,95,205,181,3,205,56 
,125,205,155,1261 

РАТА 34,201,58,77,125,6,21, 
79,205,14,820 

РАТА 125,58,76,125,6,21,79, 
62,144,205,901 

РАТА 34,125,201,221,70,2,22 
1,78,3,205,1160 

РАТА 14,125,221,70,0,221,78 
,1,62,147,939 

РАТА 205,34,125,201,62,22,2 
15,726,215,121,1329 

DATA 215,62,8,215,6,4,62,32 
,245,215,1064 
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1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 


1260 


РАТА 241,16,251,201,245,62, 
22,215,120,215,1588 

РАТА 121,215,62,8,215,241,2 
45,215,241,60,1623 

РАТА 245,215,241,60,215,201 
,229,42,118,92,1658 

РАТА 35,62,63,164,103,34,11 
8,92. 125,225,1022 

DATA 201,0,0,0,0,8,0,0,3,0, 
212 

DATA 0,97,125,104,125,111,1 
25,118,125,125,1055 

DATA 125,132,125,139,125,14 
917 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
79,283 

DATA 82,69,32,48,32,32,32,3 
2,76,105,540 

DATA 118,101,118, 32,52; 32,7 
2,73,83,67,745 

DATA 79,82,69,32,48,22,11,1 
1,71,65,490 

DATA 77,69,32,79,86,69,82,2 
2 EY WES 

DATA 73,78,86,65,68,69,82,8 
3,13,13,630 

DATA 12,12,32,32,%2,39,60,9 
0,62,22.417 

РАТА 109,111,118,101,115,32 
:108,101,102,]115, 1:013 

DATA 13,32, 32,232,222 92,60, 8 
8,62,32,415 

DATA 109,111,118,101,115,32 
,114,105,103,104,1012 

БАТА 116,13, 32,32,32,32,60, 
83,80,67,547 
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di Alberto Ratini 


Lo Spectrum vi aiuta a trovare e 
conservare la linea con un pro- 
gramma per 48K a livello profes- 
sionale. 


I programma presente in queste pagi- 
ne aiuta l'utente ad autocostruirsi una 
dieta, o meglio ancora a verificare l'effi- 
cienza di altre diete già pronte. L'utiliz- 
zazione del programma non comporta 
difficoltà, in quanto esso e stato studia- 
to in maniera tale da poter guidare 
automaticamente l'utente nella compi- 
lazione della dieta. Quando poi si è 
compreso il funzionamento del pro- 
gramma si puó evitare la guida automa- 
tica ed e possibile selezionare le varie 
opzioni tramite un menu. I dati di cui il 
programma si serve sono tratti da “Та- 
belle di composizione degli alimenti" un 
libretto pubblicato dal ministero nazio- 
nale della nutrizione, e conseguente- 
mente sono molto affidabili. Gli alimenti 
presenti nel programma sono 147, e 
per ognuno di essi sono presenti 9 voci: 
proteine, calorie, lipidi, ferro, calcio, tia- 
mina, riboflavina (rispettivamente vita- 
mina В1 e B2), vitamina A, e vitamina 
C. Il programma tiene conto anche dei 
glucidi, ma non li stampa, in quanto essi 
sono sempre proporzionali agli altri va- 
lori. 
A questo punto viene spontanea una 
domanda: cosa fa effettivamente il pro- 
gramma? Esso dispone di 5 funzioni fon- 
damentali: 
1) Calcolo del fabbisogno; 
2) Visualizzazione e selezione alimen- 
ti; 
3) Visualizzazione dei dati tramite isto- 
grammi; 
4) Correzione della dieta; 
5) Stampa della dieta. 


Il funzionamento 


Data l'ampiezza e la complessità del 
programma non è possibile esporre ‘il 
suo funzionamento linea per linea, tut- 
tavia cercheremo di dare una descrizio- 
ne più esauriente possibile, in maniera 
tale che alcuni trucchi o tecniche parti- 
colari possano essere riutilizzati all’oc- 
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correnza. Per una migliore comprensio- 
ne del funzionamento è consigliabile im- 
maginare questo programma come un 
insieme di procedure piuttosto comples- 
se, richiamate automaticamente da una 
subroutine di controllo oppure da un 
menu principale. 

La prima procedura calcola il fabbiso- 
gno del paziente, del quale vengono ri- 
chiesti età e sesso. Il computo avviene 
riferendosi a dati presi sull’italiano me- 
dio (Linee 9930-9950). 

Queste linee contengono dei DATA, 
così costituiti: 

“età min-età max per cui sono validi i 
seguenti valori”, dati separati da virgole 
(proteine, vitamine, ecc.). 

Ad esempio prendiamo la 
9940/: 

9940 DATA “50-59”, 2700, 64, 75, 


linea 


500: 101.1. 1.545, 750 

Il programma legge il primo elemento 
del DATA (la stringa) ed estrae i due 
valori che rappresentano i limiti d'età 
per cui sono validi i dati seguenti. Se 
l'età della persona e compresa tra que- 
sti due valori, allora i dati seguenti ven- 
gono assunti come fabbisogno dell'indi- 
viduo; se invece l'età della persona non 
e compresa tra quei limiti, viene letto il 
DATA successivo. 

La seconda procedura è quella più com- 
plessa e permette la selezione degli ali- 
menti. Non appena viene chiamata, la 
routine stampa sul video le categorie 
nelle quali sono raggruppati gli alimenti 
presenti nel programma. Premendo un 
tasto si entra nella sezione operativa 
della procedura. Il video è diviso in due 
finestre: una in alto, ed in essa compaio- 


TN 


no uno dopo l'altro gli alimenti; l'altra 
in basso, ed ha la triplice funzione di 
mostrare i tasti per l'uso, le quantità da 
consumare ancora (cioe la differenza 
tra il fabbisogno e le quantità consuma- 
te) ed infine di permettere la selezione 
di una determinata categoria. Premen- 
do 0 compaiono uno dopo l'altro gli ali- 
menti da scegliere a gruppi di quattro; 
premendo il 6 si ottiene lo spostamento 
del cursore di un carattere in basso e 
ció per selezionare quale alimento si de- 
sidera tra quelli presenti nella finestra. 
Selezionato l'alimento esso puó essere 
scelto premendo 9. Dopo pochi attimi 
vi verrà richiesta la quantità che deside- 
rate dello stesso (in grammi). Col tasto 
8 si possono visualizzare gli alimenti di 
una determinata categoria: nella fine- 
stra inferiore vengono mostrate le cate- 
gorie presenti a gruppi di 5; per sceglie- 
re una determinata categoria il procedi- 
mento e analogo a quello precedente 
(О=сатЫо gruppo categorie mostrate; 
6=sposta cursore; 9=scelta categoria 
indicata dal cursore). 

Fatta eccezione per quando si è nel mo- 
do di ‘selezione categorie’, è sempre 
possibile essere informati sui tasti per 
l’uso premendo F. 

Quando si è terminata la selezione degli 
alimenti si può tornare al menu (o pas- 
sare alla fase successiva se si è in modo 
auto) premendo S. E importante ricor- 
dare che quando un valore mostrato 
nella finestra inferiore diventa negativo 
significa che, relativamente a quella vo- 
ce, il consumo ha superato il fabbiso- 
gno: nella fase di correzione sarà neces- 
sario ridurre uno o più alimenti per ri- 
portare tutti i valori alla normalità. 

Il funzionamento di questa procedura è 
abbastanza complicato, soprattutto 
perché le mansioni che essa deve svol- 
gere sono molteplici. Risultano tuttavia 
interessanti alcuni trucchi utilizzati al- 
l'interno della procedura e che ora cer- 
cheremo di spiegare: ad esempio, la ri- 
levazione dell'alimento prescelto viene 
effettuata costruendo una stringa costi- 
tuita dai caratteri della parola indivi- 
duata dal cursore: se la parola puntata 
dal cursore è ‘FAGIOLINI’, la stringa 
v$ conterrà al primo ciclo di g la lettera 
F, al secondo FA, al terzo FAG e cosi 
via (linea 195). Viene poi richiamata la 
subroutine posta alla linea 230 che ri- 
cerca nei DATA degli alimenti (linea 
9500) l'alimento scelto. Ma analizzare 
ogni volta tutti i DATA per intero risul- 
terebbe cosa a dir poco lenta, e per 
questo il programma segue un partico- 
lare procedimento: servendosi della va- 
riabile CONT, che contiene il numero 
di linea del DATA dell'ultimo alimento 
stampato, e dell'istruzione RESTORE 
NN (dove NN 8 un numero di linea), la 
procedura molto rapidamente individua 
l'alimento scelto. 

Trovato l'alimento vengono calcolati i 
valori delle nove voci in base alla quan- 
tità prescelta, mentre quelli relativi a 
100 grammi sono posti nella matrice W 
(X, Y), dove X è l'alimento e Y il “punta- 


Descrizione delle variabili 


dieta 

u$ (x) 

u (alim, 1) 

u (alim, 2) 

w (alim, 1 TO 9) 


calo 
pro0 
про 
1е0 
са0 
tia0 
rib0 
ret0 
asc0 
cal 
pro 
Пр 


BERG 


ret 


auto 


cont 


contatore alimenti prescelti 


nome alimenti prescelti - 
grammi scelti di ogni alim. 
parte edibile di ogni alim. 


dati completi di ogni alimento scelto 
(usato in fase di correzione) 


quantità accumulate 


fabbisogno 


contatore che regola la compilazione 
della dieta autoguidata 


numero di linea DATA dell'ultimo 
alimento stampato 


Descrizione del programma 


Linee 
0-114 
115-300 
1000-1010 
1100-1110 
1200-1210 
3000-3030 
4000-4130 
5000-5320 
6000-6075 
9000-9025 
9100-9132 
9200-9230 
9300-9360 
9400-9430 


Commento 

assegnazione variabili 

seconda procedura: selezione alimenti 
stampa finestra superiore 

mostra i tasti per l'uso 

stampa finestra inferiore 

stampa quantità rimaste 

stampa istogrammi 

quarta procedura: correzione 
routine di selezione per categorie 
menu principale 

routine di autogestione (12 parte) 
uscita dal programma 

routine di autogestione (22 parte) 
stampa dieta finale 
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tore del dato". Nella matrice U (X,Y)， 
dove X 8 l'alimento, vengono posti la 
quantità scelta e la parte edibile dell’ali- 
mento stesso (cioè quella effettivamen- 
te ingeribile). 

La terza procedura permette di stam- 
pare gli istogrammi nei quali ogni voce 
(calorie, proteine, ecc.) è rappresentata 
da due barre; la prima (viola), che indi- 
ca il fabbisogno dell’individuo, la secon- 
da (gialla), che rappresenta le quantità 
consumate. Le barre hanno un fondo 
scala fisso, oltre il quale non possono 
andare. In tutti i casi, a fianco di ogni 
istogramma viene stampato il valore 
corrispondente. Prima di iniziare a trac- 
ciare le barre la procedura richiede se 
interessa una stampa su video o su car- 
ta, e ciò per migliorare la comprensibili- 
tà degli istogrammi. Il funzionamento di 
questa routine è elementare, in quanto 
gli istogrammi sono ottenuti tramite i 
cicli FOR-NEXT e le istruzioni grafiche 
PLOT e DRAW. 

La quarta procedura è quella che per- 
mette di correggere la dieta; sono previ- 
sti due metodi di correzione: uno ma- 
nuale e uno automatico. Il primo consi- 
ste nel digitare il nome dell’alimento 
che si vuole modificare (esso ovviamen- 
te deve essere già presente all’interno 
della dieta) e poi i grammi che se ne 
desiderano. La correzione automatica 
permette di riportare i valori (proteine, 
vitamine, ecc.) accumulati, scegliendo i 
propri pasti, entro il limite consentito 
dal proprio fabbisogno, riducendo di 
volta in volta di 5 grammi le quantità 
di tutti gli alimenti. Se dopo una prima 


Dieta 


Versione per ZX Spectrum 48K 115 IF s$="" 


0 REM 


*k*kkkk*k***DIETA******x**x* 


ШЕ Е" Ç 


riduzione i valori sono tornati nella nor- 
ma, si torna al menu; se invece esiste 
anche una sola delle voci che eccede il 
fabbisogno, il ciclo di riduzione viene 
ripetuto. Questo sistema ha il vantaggio 
che lascia invariata, pur riducendo le 
quantità, la percentuale tra i vari ali- 
menti, cosi da mantenere la dieta molto 
fedele all'originale. Per quello che ri- 
guarda il funzionamento risulta interes- 
sante il metodo di simulazione dell'istru- 
zione ON GOTO, che non ë presente 
nel BASIC Spectrum, tramite la logica 
booleana. Per chiarire meglio riportia- 
mo un esempio: se si scrive GOTO (50 
AND x=1) + (100 AND x=2), lo Spec- 
trum controllerà la veridicità della 1° 
espressione (x ë uguale a 1 ?) e in base 
alla risposta salterà, o meno, alla riga 
50. Е оумо che se la 1° espressione ë 
falsa, lo Spectrum analizzerà la secon- 
da, mentre in caso contrario la seconda 
non verrà nemmeno esaminata (ë ovvio 
che lo stesso numero поп può essere 
contemporaneamente uguale a 1 ea 2 
111). 

La quinta procedura è la più semplice 
e consente di stampare sul video, o se 
richiesto sulla stampante, gli alimenti, 
le quantità prescelte, nonché quelle da 


comprare (ottenute tenendo conto della 
parte edibile di ciascun alimento). 

Alla fine il programma chiede se si desi- 
dera ricominciare un’altra dieta, e in 
caso contrario si torna al BASIC. 

Se per caso usciste dal programma, per 
qualche errore o premendo BREAK, è 
possibile rientrare con buone probabili- 
tà di successo digitando GOTO 9000 o 
dando CONTINUE. 

Nel programma è stato tenuto conto 
solo in parte della necessità di rispar- 
miare memoria (ad esempio cercando 
di scrivere linee abbastanza lunghe, in 
quanto non si deve dimenticare che ad 
ogni nuovo numero di linea lo Spectrum 
impiega ben 5 byte in più), tuttavia, se 
si avesse la necessità di aggiungere mol- 
ti alimenti, si può ricorrere ai vari meto- 
di che un buon programmatore Sinclair 
dovrebbe conoscere (i principali sono: 
LET a=VAL “3” invece di LET a=3 
LET a=NOT PI invece di LET a=0) 
In conclusione intendiamo far notare co- 
me sia possibile gestire programmi di 
una certa complessità anche in BASIC, 
purché si tenga sempre presente quella 
componente essenziale che è la veloci- 
tà, sacrificando al limite la minore occu- 
pazione di memoria. 


114 LET auto-0: GO TO 9000 


THEN СО TO 9000: REM 


PREP. VIDEO 


116 BORDER 6: PAPER 6: 


INK 0: CLS : 


* * 
Ж” s Alberto "Ratinz 7 
* * 147 
* 1984 TERNI * 


K k k k k k k k k k k k k k k k k k k k k k k 


1 СҺЕАК 65367 
105 PAPER 7: INK 0: BORDER 7: CLS : 


TEO 


LET s$="": LET q2=0: RESTORE 95 
00: LET re=0 
LET dieta=l: DIM а(11): DIM u$(3 
0,18): DIM u(30,2): DIM w(30,9): 
LET pro0-0: LET lip0-0: LET cal 
020: LET fe0-0: LET ca0-0: LET r 
ib0=0: LET tia0=0: LET ret0-0: 
LET азс0=0 

PRINT AT 10,0;"Se vuoi essere gu 
idato dal pro- gramma nella comp 
ilazione della dieta premi "; 
FLASH 1;"a";. FLASH 0;",altrimen 
ti "; FLASH 1; INVERSE 1; "ENTER" 
: INPUT LINE v$: ТЕ v$="a" 
THEN LET auto=l: GO TO 9100 
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120 


PRINT BRIGHT 1;"Le categorie d 
egli alimenti di-sponibili sono 
. " 

PRINT : PRINT "CEREALI E DERIVAT 
I"'"LEGUMI FRESCHI"'"LEGUMI SECC 
HI"'"VERDURE E ORTAGGI"'"FRUTTA 
FRESCA"'"FRUTTA SECCA"'"CARNE"'" 
CARNE CONSERVATA"'"FRATTAGLIE"'" 
PRODOTTI DELLA PESCA"'"PESCE SUR 
GELATO"'"PESCE CONSERVATO"'"LATT 
E"'"FORMAGGI E LATTICINI"'"UOVA" 

'""OLII E GRASSI"'"DOLCI"'"VARIE" 
'""PRECUCINATI SURGELATI" 

PRINT 40; INK 3; PAPER 7;"PREMI 
UN TASTO": PAUSE 0: PAPER 7: 

INK 0: BORDER 7: CLS : 

RESTORE 9500 
БЕТ го<" 

"; PRINT PAPER 6;AT 0,0 

sr$;AT 1,0;r$;AT 20,0;r$;AT 21,0 
r$; FOR:€=2 ТО 19: PRINT 

PAPER Ө ГАТ ЕО МАТЕО" 
шн NES С 


240 


245 


250 
255 
260 
265 
270 
275 
280 


285 


PLOT 0,0: DRAW 16,16: 
: DRAW 16,-16: 
DRAW -16,-16: 
DRAW -16,16 
GO SUB 1000 
GO SUB 1100 
PRINT AT 21,2; PAPER 3; 
BRIGHT 1; "РЕЕМТ 'F' 


PLOT 0,175 
PLOT 2357175: 
PLOT: 255,0: 


INE OL 
PER VEDERE 


I TASTI" 

REM stampa alimenti 

RESTORE : LET cont-9500: LET y$- 
ПРИВЕТ CSST: ВЕЕР TET су 
=6: ГЕТ $=5: DIM е$ (2,18) 

READ а8: LET e$(1)=a$: IF а5-" 


5ТОР " ТНЕМ СО ТО 150 
IF a$(1)="*" THEN . LET 5-5: 
PRINT AT 33" 

": FOR r=s+1 ТО 9: PRINT АТ к, 
4;e$(2): NEXT к: LET 5-5: LET 25 
=а$(2 TO ): PRINT AT 3,2+((22- 
LEN 25)/2); INK 0; BRIGHT 1;25: 

BEEP 25,10: GO то 155 
FOR t=1 TO 11: READ a: NEXT t 
ТЕТ s=s+1: ТЕ 5-10 THEN LET 5-6 


PRINT AT s,4; 
2;е5 (1) 
PRINT АТ су,22; BRIGHT 1; 
PAPER 7; on 
ТЕ ІМКЕҮ5-"6" THEN ТЕТ су=су+1: 
PRINT АТ cy-1,22;"{SG8}" 
ТЕ cy=10 THEN LET су=6 
ТЕ INKEY$="9" THEN PRINT АТ 6,2 
4; FLASH 1;"": FOR g=4 TO 21: 
LET t$-SCREENS$ (cy,g): LET у$=у 
$+t$: NEXT g: GO SUB 0230 
ТЕ INKEY$="s" THEN СО TO 9000+( 
auto*30) 


BRIGHT 1; PAPER s- 


IF ІМКЕҮ5-"8" THEN СО SUB 6000 
IF INKEYS$-"f" THEN СО SUB 1100 
IF ІМКЕҮ5<>"0" THEN СО TO 180 


LET cont=cont+2: GO ТО 155 

REM controllo 

DIM о(11): IF CODE у8 (2) -32 
THEN LET y$="": LET д5-"": 
LET cont=cont+2: RESTORE cont: 


GO TO 155 

RESTORE (cont-18): FOR у=1 TO 10 
t READ 45: IF d$(l)s"*" THEN 
READ d$ 

ТЕ d$=y$(1 ТО LEN d$) THEN 
FOR г=1 TO 11: READ о(г): 
NEXT г: GO TO 0270 

FOR 1-1 TO 11: READ м: NEXT 1 
NEXT y 
GO SUB 3000: RETURN 

STOP 


REM calcolo importi 

INPUT "Quanti grammi ? ";gr 

FOR. ts2 TO 11:- LET o(t)s(o(t)/1l0 
0)*gr:,NEXT t 

LET рго0=рго0+о (2): LET lip0=lip 
0+0 (3): LET са10=са10+о (5) : 

LET Ее0=Ее0+о (6): LET са0=са0+о 


290 


300 
1000 
1005 


1010 
1100 
1105 


1110 
1200 
1205 


1210 
3000 
3005 


3010 


3015 


3020 


3023 
3025 
3027 


(7): LET Е1а0=Е1а0+о (8): LET rib 
О=гір0+о (9): LET ret0=ret0+0(10) 
: LET asc0=asc0+0(11) 

LET u$(dieta)-d$: LET u(dieta,l) 
=gr: LET u(dieta,2)=0(1): LET w( 
dieta,1)-0(2): LET w(dieta,2)-o( 
3): LET w(dieta,3)=0(5): LET w(d 
ieta,4)=0(6): LET w(dieta,5)=0(7 
): LET w(dieta,6)-0(8): LET w(di 
eta,7)=0(9): LET w(dieta,8)=0(10 
): LET w(dieta,9)=0(11): LET die 
ta=dieta+]1 


GO SUB 3000: RETURN 

REM FINESTRA SOPRA 

PRINT AT 4,3;"1(205С8)";АТ boris 
(20568)";АТ 6,3;"{SG8} 

(98G8 "АТ 7/3ywiSGB) 
[508] "АТВ, 37" 

{568 } {568 }"; 
АТ 9,3; (568) 
{SG8}"}AT'"10)35"{20SG8}" 
RETURN 

REM TASTI 

GO SUB 1200: FOR t=14 TO 18: 
PRINT О PAPER. 3;AT t,4;" 


"S NEXT Е: PRENT ZAT OD 
TASTI PER. L'USO Ts 
PAPER 2; INK 7; BRIGHT 1;АТ 14, 


4;"0-AVANZ.";AT 15,4;"9=SCEGLIE 
ALIM.";AT 16,4;"S=MENU'";AT 1744 
i"8=SELEZIONE";AT 18,4;"6=CURSOR 
E" 
RETURN 
REM FINESTRA SOTTO 
PRINT AT 13,3;"{20SG8}";AT 14,3; 
"{SG8} {SG8}"; 
АТ 15,3;"(SG8) 
1568)"; АТ 16,3;"{SG8} 
СВАТ 1732328 
1568)"; AT 18,3;" 
{568} (Sc8)"; 
АТ 19,3; 1205G8)" 
RETURN 
REM STAMPA RIMASTI 
GO SUB 1200: PRINT AT 12,57 
PAPER 5;"QUANTITA' RIMASTE": 
FOR t-14 TO 18: PRINT AT Eds 
PAPER 2; INK 7; BRIGHT len 
Е. £ 
LET c$=STR$ (tia-tia0)+" xc 
LET b$=STR$ (rib-rib0)+" н 
PRINT РАРЕВ 2; INK 7; BRIGHT 1; 
AT 14,4;"CAL-";INT (са1-са10); 
AT 15,4;"PRO-";INT (pro-pro0); 
АТ 16,4;"LIP-";INT (11р-11р0); 
AT 17,4;"FER=";INT (fe-fe0);AT 1 
8,4;"CA z";INT (ca-ca0) 
PRINT PAPER 2; INK 7; BRIGHT 1; 
АТ 14,14; "ТІА-";с5(1 TO 4) ;AT 15 
,14;"RIB=";b$(1 TO 4);AT 16,14;" 
V.A-";INT (ret-ret0);AT 17,14;"у 
.С=";ТМТ (asc-asc0) 
IF ге=1 THEN : СО ТО 5320 
ТЕ q2-20 THEN RETURN 
IF auto-5 THEN RETURN 
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3030 


4000 
4002 
4003 
4008 
4009 
4010 
4015 
4016 
4017 
4018 


4019 


4020 


4021 


4022 
4023 


4025 


4030 


4035 
4037 


4040 


4045 
4046 


4050 


4055 


4057 


PRINT АТ су,22; "(568)": LET cont 
=cont+2: RESTORE cont: LET y$="" 
ЕЩ аб GO*TO: 155 

REM ISTO 

IF аіеёа=1 THEN СО TO 9000 

LET h=1 

INK 0: 
INPUT 


PAPER 5: BORDER 2: CLS 
"VUOI LA STAMPA SU CARTA ? 


";45: IF q$="s" THEN LET h=2 
РЕТНЫТ АТ 0,05 TINK 0%” PAPER 7; "15 
ТОСВАММТ:"; PAPER 3; INK 7;" F 
АВВ. М PAPER біл” ATTUALE." 
РЕРНЯ НАШ 1,18; PAPER 37 ТАКТ; са 
ESAT 1,25: CALOR "АТ 27085 

PAPER 6; INK 0;INT са10 
PRINT AT 3,18; PAPER 3; INK 7;pr 
ОРАЛ, 325 PROT АТ 4 Е: 

PAPER 6; INK O;INT proO 
PRINT AT 5 18; PAPER 3; ЪМКЕ 711 
РОА 5,255 ИТЛРТОЫ ЗАТ (65085 

PAPER 6; INK 0;INT lipO 
PRIENT'UATCZSUSSGUPABER 3; INK 7;fe 
SATUgT25SUPERROU АТ 8,185 

PAPER 6; INK 0;INT Ғе0 : 
PRINT AT 9,18; PAPER 3; INK 7;ca 
ЖАПЫ 9, ЛЫР" CALCIO АТ 10,18: 

PAPER 6; INK 0; ТМТ сай 
ТЕТ w$=STR$ tia0: LET tia0=VAL м 
ОТО Sr DR ENT AT 115.085 

PAPER ST МКО ла: АТР Бетті 
AMINA";AT 12,18; PAPER 6; INK 0; 
tia0 
LET wS=STRS rib0: LET rib0=VAL w 
ӨЗЕН pO 3) PRINT Ат 13 185 

PAPER 3: INK TCID ТТ 25 RT 
BOF.";AT 14,18; PAPER 6; INK 0;г 
1Ь0 
PRINT АТ ] 5,18; PAPER 3: ТЫҚ. 725 


GESAT 15, 25: VIT: А"ЗАТ 16, 18: 
PAPER 6; INK 0; ТМТ ret0 

PRINT АТ 17,18; PAPER 3; INK 7;a 
SCAT EA SS Iq SOUS ATUS 


PAPER 6; INK 0;INT asc0 

LET К-са10/50: IF k>142 THEN 

LET 142 

FOR t=0 ТО К STEP В: PLOT INK 6 
;t,159: DRAW ТМК 6;0,-8: NEXT t 
FOR t-0 TO cal/50: PLOT INK 3;t 
21167: DRAW. ТМК 3205 — 7: NEXT t 
LET k=pro0: IF k>142 THEN LET К 
142 

FOR t=0 ТО К STEP В: PLOT INK 6 
ТЕ ПАЗ DRAW INK 6-0, 7:9 NEXT Е 
БОВТЕ-Ш ТОСрРЕКОН BLOT INK ЗЕ, 15 
ToS DRAW СТУК 3:0, -7: МЕТ Е 
LET k-lip0: IF К>142 THEN ТЕТ К 
caue 
FOR t-0 TO k STEP h: PLOT INK 6 
Zt L27T:9DRAWL  INK/6;07 727: NEXT t 
FOR t-0 TO lip: PLOT INK- Э Е, ЪЗ 
БИ DRAW- INK 3:0. МЕХТ& 
LET k-fe0: IF К>142 THEN LET К= 
142 
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4060 
4065 
4067 
4070 
4075 
4077 
4080 
4085 
4087 
4090 
4095 
4097 
4100 
4105 
4107 
4110 
4115 


4120 


4125 


4130 
5000 
5003 
5005 


5010 
5025 


5026 
5027 


5028 


5029 


5030 


FOR t=0 ТО К STEP h: PLOT INK 6 
st,111: DRAW INK 6;0,-7: NEXT t 
FOR Е=0 TO Te: PLOT INK ЗЕ, 119 
ВАЙ INK 3:0,-7:2 NEXT. t 

LET К-са0/10: IF К>142 THEN 

LET К-142 

FOR t=0 ТО К STEP h: PLOT 
;t,95: DRAW INK 6;0,-7: 
FOR Е-0 ТО са/10: PLOT INK ЗЕ, 
103: DRAW: ТМК 37.0 = 7 > NEXT Е 
LET k-tia0*10: IF К>142 THEN 
LET К-142 

FOR t=0 TO К STEP В: PLOT 
ГЕ, 79: -DRAW INK 60.27 
FOR Ғ-0 тогета# 10: PLOT ТМК ЗЕ 
ГОП «DRAW INK 30-72 NEXT t 
LET k=rib0*10: IF k>142 THEN 

LET К-142 

FOR t=0 TO К STEP h: PLOT 
;t,63: DRAW INK 6;0,-7: 
FOR t=0 TO rib*10: PLOT INK 3;t 
Ile DRAW PNE 3707-7: NEXT t 
LET k=ret0/10: IF k>142 THEN 
LET k=142 

FOR t=0 TO k STEP h: PLOT 
2/6557 2 DRAW SINK ¿60 y 7% 
FOR t=0 ТО ret/10: PLOT INK 3;t 
2552 DRAW: CINK- 3:0, л NEXT t 
LET К-авс0: ТЕ К>142 THEN LET К 
=142 

FOR t-0 ТО К STEP В: PLOT INK 6 
ТЕЗІ DRAW ТМК 6 О Е NEXT t 
FOR t=0 ЛО asc: PREOT МК 3;t,39 
< DRAW -ТНК 90-7 NEXT: E 

Те абе "а" ТНЕМ рат АТО, 11: " 

СОРТ: 


ІМК 6 
МЕХТ 七 


ІМК 6 
МЕХТ + 


ІМК 6 
МЕХТ + 


ІМК 6 
МЕХТ 七 


LET q$z"" 

PRINT %0;АТ 0,2; FLASH 1;"PREMI 
UN TASTO PER IL MENU'": IF 
INKEYS«»"" THEN GO ТО (9000+а 
uto*25) 

GO TO 4120 

REM CORREZIONE 

IF dieta=1 THEN СО TO 9000 
CLS : PRINT PAPER 3; INK 7; 
BRIGHT 1; k*kkkkkkkkkkk"V,; 

FLASH 1;"DIETA"; FLASH 0;"**k** 
ххх", AT 1,0; PAPER 1; 
FLASH 0; INK 7; BRIGHT 1; "А11пе 
nto Grammi Edib."s 

AT PA Q pt 

GO SUB 5400 

LET 2-10: PRINT #0;AT 0,0;"1=VAR 
IAZIONE MANUALE";#0;AT 1,0;"2=VA 
RIAZIONE AUTOMAT./3=RET Ш 
PAUSE 30: LET 2=СОрЕ ІМКЕҮ5-48 
ТЕ (2-3 THEN PRINT %0;АТ 1,22; 
PAPER 1% ТУК Т OVER- Т” ы; 
IF 251 THEN PRINT %0;АТ 0,0; 
PAPER 1; INK 7; OVER 1;" 

" 

THEN PRINT #0;AT 1,0; 

Ше INK 77 OVER 

и 


ОВ 2<0 ОВ 2=0 ТНЕМ 
5026 


ІЕ 2-2 
PAPER 


ТЕ 223 
со то 


5031 


5035 


5050 
5055 


5060 


5065 
5067 


5070 


5080 
5110 


5120 
5200 
5203 


5205 


5210 
5215 


5220 
5250 


5260 
5299 
5300 


5310 


5320 
5410 


5411 


FOR q=] ТО 45: ВЕЕР .008,q: 


NEXT а: INPUT "CONFERMI ? (s/n) 
";45: IF q$="n" THEN СО ТО 5025 
GO TO (5050 AND 2-1) “(5200 AND z 


=2)+(5026 AND z>3)+(9000+(auto*2 
5) AND z=3) 

REM CORR MAN 

POKE 29658,85 LET х!-0: 
Limento da correggere"'; LINE р$ 

: POKE 23658,0: INPUT "Quanti gr 
ammi ne vuoi ";grl 
FOR. в-! ТО dieta-1: ТЕ 18 (5) (1 

TO LEN p$)=p$ THEN LET х1=5 
NEXT s 
IF x1=0 THEN BEEP 1,-10: 

РКЕМТ-30%АТ 0; 0 рОТАТТТ)О0 rad 
imento поп е" nella dieta": 

FOR q=] TO -20 STEP -1: BEEP .1 
‚А: МЕХТ а: со ТО 5050 
FOR 5-1 ТО 9: пет о- (хе) 

LET 0=(0/u(x1,1))*grl: LET w(x] 
5) <о: NEXT s: LET u(x1,1)=gr1 
GO SUB 5300 
INPUT "Un'altra correzione ? 
$: IF f$z"s" THEN СО ТО 5055 
CLS : СО ТО (9000+auto*25) 
DIM a(30): REM CORR AUTO 
FOR w=] TO dieta-1: LET a(w)-u(w 
11y: NEXT м 
FOR s=] TO д1еха-1 
FOR r=1 TO 9 
LET x-w(S,r): 


INPUT "A 


Е 


LET х= (х/а (5) “и (в, 


Л) ) LET г5-5ТЕб х" Ш, 
=VAL rS (1 ТО. 4): LET w(s,r)sx: 
МЕХТ г: МЕХТ 6 

ВЕЕР .1,20: СО SUB 5300 


ТЕ (рго-рго0)<0 ОВ (1ір-11р0)<0 
OR (са1-са10)<0 OR (fe-fe0)«0 
OR (ca-ca0)«0 OR (tia-tia0)«0 
OR (rib-rib0)«0 OR (ret-ret0)<0 
OR (asc-asc0)<0 THEN FOR e-] 
TO dieta-1: LET u(e,l)=u(e,l)-( 


5 AND u(e,1)»215): NEXT e: 
GO TO 5205 
CLS : GO TO (9000+auto*25) 


REM ricalcolo pro0 

LET cal0=0: LET pro0=cal0: LET 1 
ір0-са10: LET fe0=cal0: LET ca0= 
cal0: LET tia0=cal0: LET rib0=ca 
10: LET ret0=cal0: LET asc0=cal0 
: FOR r=] TO dieta-1: LET pro0=p 
ro0+w(r,1): LET lipO-lipO-w(r,2) 
: LET cal0=cal0+w(r,3): LET fe0= 
fe0+w(r,4): LET ca0=ca0+w(r,5): 
LET tia0=tia0+w(r,6): LET rib0= 
rib0+w(r,7): LET ret0=ret0+w(r,8 
): LET asc0=asc0+w(r,9): NEXT г 


IF dieta<11 THEN LET re=l: 

GO TO 3000 

LET re=0: GO SUB 5400: RETURN 
PRENT АТ 2,0:""е FOR 9=1 TO diet 
а-1 


LET 28-" "i LET хба" n 


5412 
5413 
5414 
5415 
5416 
5420 
5425 
6000 


6005 
6010 


6015 


6020 


6025 


6030 


6035 
6040 


6045 


6050 


6055 


6060 


LET sx=LEN STR$ u(g,l): ТЕ sx=2 
THEN LET 25-" и 

LET sy=LEN STR$ u(g,2): ТЕ sy=2 
THEN LET х5-" Йй 

ТЕ 5х-! PHEN ТЕТ 25-" 5 

IF sys! THEN LET x$=" у 


PRINT TAB 0;u$(g);z$;u(g,l);" 
";x$;u(g,2) 

NEXT g 

RETURN 

REM SELEZIONE * CATEG 

LET (41-1: GO. SUB. 1200 

PRINT АТ 12,4; PAPER 5; "САТЕСОВТ 
E ALIMENTI": IF 41=1 THEN FOR t 
-14 TO 18: PRINT AT t,4;" 

": NEXT t: PRINT АТ 1 
4,4;"CEREALI DERIVATI";AT 15,4;" 
LEGUMI FRESCHI";AT 16,4;"LEGUMI 
SECCHI";AT 17,4;"VERDURE E ORTAG 
GI";AT 18,4;"FRUTTA FRESCA" 

IF ql=2 THEN FOR t-14 TO 18: 

PRINT-AT 5,42" 

"; NEXT t: PRINT АТ 14,4;"FRUTT 
A SECCA";AT 15,4;"CARNE";AT 16,4 
; "CARNE CONSERVATA" ҘАТ-!7,4%"ЕВА 
TTAGLIE";AT 18,4;"PROD. DELLA РЕ 
SCA" 

ТЕ ql=3 THEN FOR t-14 TO 18: 

РРІМТ AT t,4;" 

"; NEXT t: PRINT АТ 14,4; "PESCE 
SURGELATO";AT 15,4; "PESCE CONSER 
VATO AT 16,4; LATTE";AT 12,45 ТЕ 
ORMAGGI";AT 18,4;"UOVA" 

IF q1-4 THEN FOR t-14 TO 18: 

PRINT AT t,4;" 

"= МЕХТ t: PRINT AT lup 4stonrT 
E GRASSI";AT 155,45; "DOLCI" AT 16; 
4; "МАВТЕ" ; АТ 17,4;"PRECUCINATI"; 
AT 18,4; FLASH 1; BRIGHT ПЕТТО 
КМА АГ МЕКО"" 

LET ww=14: LET 15-" 
" 


IF ІМКЕҮ5-"6" THEN LET ww=ww+1 
ТЕ ww>18 THEN LET ww=14: 

PRINT AT 18,4; FLASH 8; 
BRIGHT 8; PAPER 7; INK 0; 

OVER 1;і5: REM IF INKEYS="7" 
THEN LET ww=ww- (1 AND ww>14) 
PRINT AT ww,4; FLASH 8; PAPER 0; 

INK 7; BRIGHT 1; OVER 1; 

BRIGHT 8;i$;AT ww-1,4; PAPER 7; 
INK 0;15;АТ ww+t1,4;i$ 

IF INKEY$="0" THEN LET а1=а1+1: 
GO TO 6010 


IF INKEY$="9" THEN LET q2=(ww-1 
3) + ((а1-1) #5): GO TO 6065 
со то 6035 
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6065 LET х-(9500 AND 42-1) + (9530 


6070 


6075 


9000 


9003 


9005 
9007 


9010 


9015 
9020 


9025 
9100 


9101 
9105 


9110 


ЭЛ5 


АМО 
АКО 
АКО 


42-2) + (9538 AND 42-3) + (9546 
42-4) + (9594 AND (42-5) + (9626 
42-6) + (9630 AND 42-7) + (9660 
AND 42-8) + (9676 AND 42-9) + (9678 
AND 42-10) + (9714 AND а2-11) + (97 
20 AND 42-12) + (9728 AND а2=13) + ( 
9740 AND 42=14) + (9766 AND 42-15) 
+ (9768 AND 42-16) + (9776 AND 42-1 
7) + (9786 AND 42-18) + (9792 AND 42 
-19) 
IF q2=20 THEN RESTORE сопЕ+2: 
GO SUB 3000: RETURN 
PRINT AT cy,22;"{SG8}": LET су-6 
: LET s-5: RESTORE x: LET cont-x 
-2: GO SUB 3000: RETURN : 
PRINT AT 21,0;x: STOP 
LET auto=0: PAPER 7: INK 0: 
BORDER 7: CLS : REM MENU 
PRINT АТ 0,5; BRIGHT 1; PAPER 4; 
ТМК 7;"DIETA "su ВЕЕР 1,300: 
PRINT BRIGHT 1; PAPER 5; "МЕМО! 
ВЕЕР .3,20: PRINT PAPER 6;" 
PRINCIPALE": ВЕЕР .4,10 
REM PRINT АТ 0,4; PAPER 6; 
INK 3; FLASH 1; BRIGHT 1;"DIETA 
MENU' PRINCIPALE" 
LET o$z"s ALBERTO RATINI 1984": 
FOR t=1 TO 21: PRINT AT 3,4+Е;о 
ӘСЕУ-ВЕЕВ” 005, Е: NEXT + 
PRINT АТ 5,0; BRIGHT 1;"1) РЕВ С 
ALCOLARE IL FABBISOGNO"''"2) PER 
SCEGLIERE GLI ALIMENTI"''"3) PE 
R VEDERE GLI ISTOGRAMMI"''"4) PE 
R MODIFICARE LA DIETA"''"5) PER 
STAMPARE LA DIETA" 
LET a-CODE ІМКЕҮ5-48 
IF а>0 AND a«6 THEN СО TO (9870 
AND а=1) + (115 AND а-2) + (4000 
AND а-3) + (5000 AND а-4) + (9400 
АКО а-5) 
PRINT АТ 21,0; PAPER 2; INK 7; 
BRIGHT 1;"PREMI IL TASTO PER SC 
EGLIERE": GO TO 9015 
REM AUTO 
CLS 
IF auto-]l THEN PRINT "OK, ora t 
i verranno richiesti dal progr 
amma eta' e sesso per calcolare 
il tuo fabbisogno.": GO SUB 930 
0: LET auto-2: GO TO 9870 
IF auto-2 THEN PRINT "OK, ora с 
he ho calcolato il tuo fabbisogn 
о puoi scegliere gli alimenti 
e le quantita' che desideri.": 
GO SUB 9300: LET auto-3: 
GO TO 115 


"eoe 
ге 


IF auto=3 THEN PRINT "OK, ora с 
he hai scelti gli ali- menti ved 
rai gli istogrammi: la barra sup 
eriore (VIOLA) rappre- senta il 

tuo fabbisogno, men- tre quel 
la inferiore (GIALLA) quanto ha 
i consumato finora": GO SUB 9300 
: LET auto-4: GO TO 4000 
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9120 
9125 


9130 


9132 
9200 
9210 


9215 
9220 
9225 
9230 
9299 
9300 
9320 
9325 
9326 


9350 
9355 


9360 
9400 
9402 
9403 
9405 


9410 


9415 


9420 


9425 


9430 
9500 


IF auto-4 THEN С0 TO 9350 


IF auto=5 THEN CLS : PRINT "ОК, 
se hai la ZX PRINTER puoi sta 
mpare su carta la dieta.": 
GO SUB 9300: LET auto-6: 
GO TO 9400 
IF auto=6 THEN CLS : PRINT "Hai 


terminato: premi 'n' per unanuo 
va dieta o un altro tasto perfin 


ire INPUT v5t LE vo«5»"n" 

THEN STOP 

ТЕ v$5zs"n" THEN CLEAR: GO TO. 
REM exit 

CLS : PRINT АТ 10,0; INVERSE 1;" 


LA CREAZIONE DELLA DIETA Е" 
"SAT 12,10;" TERMINATA " 


INPUT PAPER 6;"UN'ALTRA DIETA ? 
(s/n)";a$ 

ТЕ a$(1)="s" THEN CLEAR: 

GO TO 105 

PRINT AT 20,0;"OK, HAI TERMINATO 
и 

STOP 

STOP. i 

PRINT #0; FLASH 1; BRIGHT 1; "РЕЕ 

MI UN TASTO": PAUSE 0: RETURN 

REM contr 

IF auto=0 THEN GO TO 9000 

GO TO 9100 

REM contr2 

PAPER 7: INK 0: BORDER 7: CLS : 
INPUT "Vuoi modificare la dieta 
(s/n)"; LINE v$: ТЕ .v$s"s" 

THEN PRINT "Ricorda che hai du 


e possibilita'di modificare la d 
ieta: la primamanuale (devi scri 
vere l'alimen-to e indicare quan 
ti grammi ne vuoi; la seconda г 
iduce automaticamente tutti gli 
alimenti fino a riportare tutti 
i valori sopraallo zero": LET au 
to-5: GO SUB 9300: GO TO 5000 
LET auto-5: GO TO 9100 
REM STAMPA 
IF dieta-1 THEN GO TO 9000 
CLS 5 
LET 2-1: 
INK. 73 


PRINT AT 2,0; 
BRIGHT 1;" 
"ЖАТ C yop ALIM 

ENTO": TAB ВЕСЕ." PAB 23:"DA СО 
М- ";AT 2,24;"PRARE" 

LET wl=INT (u(z,1)*(100/(u(z,2)) 
|) 2 PRINT TAB 0;u5(2) (b ГО 415) 4 
TAB 19;u(z,1);TAB 26;wl: LET 2-2 
+l 


PAPER 2; 


IF CODE u$(z)<>32 AND 2<>20 
THEN GO TO 9410 
PRINT #0;АТ 0,6;"C-STAMPA*****g- 


FINE": IF ІМКЕҮ5-"5" THEN 

GO TO 9200 

ТЕ INKEYS="c" THEN ВЕЕР 21,20: 
COPY «SIEHT ТРАТИТ O AT 3,0525 
GO TO 9410: 

GO TO 9420 


DATA "*CEREALI E DERIVATI","BISC 


9502 
9504 
9506 
9508 
9510 
9512 
9514 
9516 
9518 
9520 
9522 
9524 
9526 
9528 


9530 


9532 
9534 
9536 


9538 


9540 
9542 
9544 


9546 


9548 
9550 
9552 
9554 
9556 
9558 


9560 


« X INFANZIA",100,13.8,8.5,76.1, 
417,1.9,104,0,0, 0, 0 

DATA "WAFERS",100,7.1,15,77.6,45 
4,020,0;0,0,0 

DATA "FARINA 0",100,11.5,1,76.9, 
$43,.9,18,.25, 04,0, 0 

DATA "FETTE BISC.",100,11.3,6,83 
,410,3.8,5545,50,.30,0,0 

DATA "GRISSINI",100,12.3,13.9,69 
43372 372137 ИТ 08 чеда 

DATA "ORZO PERL.",100,10.4,1.4,8 
2.3,3634,7,14,,09,.08,0, 0 


DATA "PANE TIPO 1",100,8.9,.6,60 


3126 T, 4 13 08; 07 0; 0 

DATA "РАМЕ INTEGR.",100,7.5,1.3, 
53.,8,2439, 24525, 10, 58270510 

DATA "PANINI OLIO",100,7.7,5.8,5 
8.3,302,0,0,0,0,0,‚0 

DATA "РАЗТА SEMOLA",100,10.8,.3, 
82.9, 356, З А 11, 0,0 

DATA "PASTA UOVO",100,13,2.4,78. 
6,368,22!1,22,2%4,.19,35,0 

DATA "PIZZA BIANCA",100,8.4,24.7 
,40.7,408,0,9,0,0,0,0 

DATA "PIZZA POMODORO",100,4,4,51 
.9,247,0,12,0,0,0,0 

DATA "PIZZA MOZZARELLA",100,5.6, 
5516552 49/72 Tir ООо 09710070 

DATA "TORTELLINI",100,23.8,6.4,3 
9.4,301,0,0,0,0,0,0 

DATA "*LEGUMI FRESCHI","FAGIOLI 

FR.",41,6.4,.6,19.4,104,3,44,.44 
,.10,18,10 

БАТА: РАСТОТ 95, 2, По 244,1 
ИЗО уБ „АЛ 1\6 

DATA PEFAVE: ЕК: "30, 534, 0 „4 2, 37, 
1:823 0.20 (10/124 

РАТА РІЗНИ ERG 472, 1224, 
76,1.8,47,.42,.18,49,28 

DATA "*LEGUMI SECCHI","CECI",100 
,21.8,4.9,54.3,334,6.1,117,.36,. 
14,30,5 

DATA "ЕАСТОЪТ" 1002346, 255551. 7 
31,6. ЗЛ, 40; 017,393 

DATA "FAVE" 7100727. 2r 3 9559939427 
5090, 25072287 10/7 

БАТА "І.ЕМТІССНІЕ",100,25,2.5,54, 
325,5. БӨЛІК ӨЛІ ОО 

DATA "*VERDURE E ORTAGGI","AGRET 
т ВиО, 21301703 
119,392, 24 


DATA "ASPARAGI",57,4.6,.2,4,35,1 
51525,8319, 043515523 

DATA "BIETA" ВА ПЗЕ 268, 17,1, 
67, .03, .19,263,24 

DATA "BROCCOLETTI RAPE",60,2.9,. 
3 2 22 15597, - 0: 1622257110 
DATA РВВОССОПОПЫЛ!;3:5247351727,. 
8,28,.04,:12,2,54 

DATA "САКСТОЕТ", 34,2, 7,.2,2.5,22 
,1,86,:06;. 10,18, 12 

DATA 1 САКОТЕ "95, 11, 0, 7.6, 337: 7 
,44,.04,.04,1148,4 

DATA "CAVOLFIORE",66,3.2,.2,2.7, 
25,.8,44,.10,.10,0,59 


9562 
9564 
9566 
9568 
95970 
9572 
9574 
9576 
9578 
9580 
9582 
9584 
9586 
9588 
9590 
9592 


9594 


9596 
9598 
9600 
9602 
9604 
9606 
9608 
9610 
9612 
9614 


9616 


DATA "CAVOLO BROCCOLO",72,3.4,.3 
27 2452,729 208220128707 
DATA "CAVOLI BRUXELLES",76,4.2,. 
572930371: 1.51.08, Ла 22О 81 
DATA VEBIRIOLI"; 77,02; .5; 128, 14; 
$3716, . 02; 0370711 

DATAS ӨТСОКТАН,80/ЛХА 22717010765 
7,74; 2085.19, 219217 
DATACSCRPODDEUTS83?2]025 155457426204 
725750275034 055 

DATATI ЕТНОСЕНЕ" 7595152705149, 174; 
85,.02,.04,2,12 

ВАТА "ТМОТУТА", 69, -9,.3,2:7: 161 
+093: -05,.30:213:35 

DATA "LATTUGA А CAPPUC.",92,1.5, 
saroy 912553, 208, 2185237227 
DATA "LATTUGA DA TAGLIO",83,1.1, 
.1,2.2,14,.9,46,.04,.09,194,59 
DATA "MELANZANE",92,1.1,.1,2.6,1 
Sipe3prt4n2057 00 17 

ПАША ТРАТФАТЕМИЯЗ ОГ 18, 85; 467 
107, 2110, 70473, 15 

DATA "PEPERONI DOLCI",82,.9,.3,4 
:2;22,.7,17,.05,.07,139,151 

DATA "POMODORI MATURI",100,1,.2, 
3195210973591: 027 0135125 

DATA "POMODORI РЕГАТТ",100, 1 52815 
ЗТ аа 90 07. 80128 
DATANUSPINAGTU ВВ USE 4 7,397191. 125 
9,78,.07,.37,485,54 

ВАША NEZUCCHINE "ВВ Ло, ЛЛА, ТІН 
riral -ЮВ 12 G, 11 

DATA "*FRUTTA FRESCA","ALBICOCCH 
E",94,.4,.1,6.8,28,.5,16,.03,.03 
‚360,13 

DATA "АМАМА5",57,.5,0,10,40,.5,1 
ОБ 0127 7 

DATA "ARANCE",80,.7,.2,7.8,34,.2 
‚49, -. 06,2. 05571,50 

DATA "ARANCE SUCCO",100,.5,0,8.2 
933p«2,515,205,.03,38,44 

DATA "BANANE",65,1.2,.3,15.5,66, 
.8,7,.06,.06,45,16 

DATA "CASTAGNE",69,3.5,1.8,42.4, 
18911. 23822 035600 

ПАТАТ ERCHIS 75 9 ТРИ MUSS 
(43, 203, . 04,15,7 

DATA “ЕВАСОБЕ" 94 297.4, 523/275; 
871357 802 104 „0, 54 

DATA "LIMONI SUCCO 1001, 2220, 1:.4 
,6 222022020743 

DATA "MANDARINI",80,.9,.3,17.6,7 
2237329085 :507718742 

DATA. "MELE",94,.2,.3,11,45,.3,6, 
202 1702/7855 

ВАТА ВМОСВ 58, 10:55 757075 15,582 
r2. 6.131, 258, 25736,0 
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9618 
9620 
9622 
9624 


9626 


9628 
9630 
9632 
9634 
9636 
9638 
9640 
9642 
9644 
9646 
9648 
9650 
9652 
9654 
9656 
9658 
9660 


9662 
9664 
9666 
9668 
9670 
9672 
9674 


9676 


9678 


РАТА PERRA 910,213, 524,905 40773216 
,.01,.03,0,4 

РАТА "РЕЗСНЕ ЭЛИ ВИЕ Па? зА 
4,207, 503, 211,4 

DATA C РЕПСНВ И 89% 25; 217105534272 
25113, 20875056, 5 

DATA "ОМА! 945. МП, 15 6,61, 4,2 
7, 503% 20354,6 

DATA "*FRUTTA SECCA","OLIVE VERD 
I',84,2871/5710,31427176;, 6450750, 48; 
0 

DATA "UVAT,l100;1.2;,.6,72; 283, 3.3 
,78,.02,.08,3,0 

DATA "*CARNE","ANATRA",80,21.4,8 
:25,0,159,1.3,12,.19,.18, 80,0 

DATA "AGNELLO",83,20,2.2,.3,101, 
19,9, ЛО 2205 0510 

БАТА ПЕРЕГЪО 1002087 217,927 
2534. 15 2267020 

DATA "VITELLONE MAGRO",100,21.3, 
ЗОЗ ТЕЗЕ OPE 197650 

DATA "BOVINO AD. MAGRO",100,20.7 
5p2:150512972:737 107-509; 2190050 

DATA "CAVABLO!U,800;72127,27 7, „5,1 
ЭЗ 52:105 310,5 1727 020 

DATA "CONIGLIO MAGRO",68,23.7,.6 
n39:11025,1 997 1725197127020 

DATA "FARAONA РЕТТО",85,25.1,.7, 
074077007 a 047 3152070 

DATA "MAIALE SEMIGR.",100,17.2,2 
2217,0, 2687 1.24777 5387 8970/50 

DATA "BISTECCA MAIALE",75,18.3,3 
Ооо TaS В Ьо 3187070 

РАТА БРТССТОНБ 905220017 БОБО, ТЗ 
8, 1571275068 2557020 

DATA "POLLO COSCIA",80,17.9,6.5, 

0; 130,2,/18,:08;:20,10,3 

DATA "POLLO PETTO",100,22.2,.9,0 
79751565 19), Оба 2 01/0 

ПАТА "ТАССНТМО РЕТТО",100,22,4.9 
пей, 1342 .5,23,-08, ЗОО 

DATA "ТАССНТМО COSCIA",87,20.9,1 
1542) А ЛВ 2 В В 

DATA "*CARNI CONSERVATE","BOVINO 
BNESCATSUSIE005:1359913275/; 05987, 17 
АДА . 15, .18,0, 0 

DATA "CAPOCOLLO",100,20.8,40.2,1 
.4,450,1,25,.70,.20,0,0 

DATA "COPPA",100,17,47.3,0,494,0 
,0,0,0,0,0 

DATA "MORTADELLA BO+SU",100,13.3 
371,„55388,2.2,40/„10,%Л015,0,0 
DATA "PROSCIUTTO CRUDO",100,22.2 
7 2152, 07 46012 252077495, 2226100), 0 
DATA "PROSGIUTTOJSCOTTO!',100521. 
,36.4,0,412,2,10,.60,.18,0,0 
DATA "SALAME MILANO",100,36.9,34 
49,0,5462,2. 37535, 223, 218,0; 0 

DATA "SALSICCIA SECCA",100,22,47 
13, 0,514 З ИЗЛАЗ, 520750 0 
DATA "*FRATTAGLIE","CERVELLO",10 
07928710227 а 157531641672 25, -28 
,0,18 

DATA "*PROD. DELLA PESCA","ALICI 
956.8, 2.6,1:5,96;,2.8, 148 206 
,.26,32,0 
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9680 
9682 
9684 
9686 
9688 
9690 
9692 
9694 
9696 
9698 
9700 
9702 
9704 
9706 
9708 
9710 
9912 
9714 
9716 
9718 


9720 


9722 


9724 
9726 


9728 


9730 
9732 
9734 
9736 
9738 
9740 


DATA "CALAMARI",65,12.6,1.7,.6,6 
8,0,144,.07,.16,75,0 

DATA "CARPA"; ВО ВОТ ТИОТ ТАТО 
,34,.07,.04,44,1 

РАТА? "СЕБАГРО" 55, 588, 67872771207 
"i-a 26 PUGNO NIETO 

РАТА COZZBUPL32710 7 7,2-7,3. а, ва, 
578,887; 027 31655470 

DATA "GAMBERI",45,13.6,.6,2.9,71 
КВ ЕГОР Оа ОО 
АТАМЕКЕН ЗООТ T 
‚25. 05 0870,0 

DATA "PALOMBO",65,16,1.2,1.3,80, 
T 3 120; ОЗО 

РАТА" "РОПРО”,90,70.6,1,1.4,57,0, 
144,.03,.04,25,0 

DATATE RAJZA SS 1422), .9,727,68,1) 
ЗЛ 203, 045510 

DATA "SARDA",70,20.8,4.5,1.5,129 
"(8,33,0,0,28,0 

DATA "SEPPIA",50,14,1.5,.7,72,0, 
0,0,0,25,0 

DATA "MACCARELLO",80,17,11.1,0,1 
68, 1.2,38, 10, 1. 2574570 

БАТА "SOGLIOLA",48,16.9,1.7,.8,8 
6, 8 12, ЗО 05, О 0 

DATA: "TONNO", 90, 215 8, 0,158, 1: 3 
,38,.20,.12,450,0 

DATA "ТЕТСЪТА",60,15.8,6.2,1.1, 1 
23], 1 20 3071201779910 

DATA "TROTA",55,14.7,3,0,86,1,14 
,.08,.06,0,0 

DATA "VONGOLE", 25, 10. 2,2.5,2.2,7 
2,0,0,0,0,16,0 

DATA "*PESCE SURGELATO","CERNIA" 
гов, 2, 0, 86, «3711720495127 07:0 
DATA "MERLUZZO",75,17.3,.6,0,75, 
05325095 $127 0,0 

DATA "SOGLIOLA",48,17.3,1.3,0,81 
,.4,11,.08,.12,0,0 

DATA "*PESCE CONSERVATO","ALICI 
зотт оБто" 0072579711027 29206, 
1.3,44,.06,.20,58,0 

DATA "BACCALA'AMM.",82,21.6,1,0, 
05723731 7205/52287 070 


DATASUPILSUDITBAGCCALA!'",01005726 
0,0,104,0,0,0,0,0,0 

DATA "TONNO SOTT'OLIO",100,22.8, 
18.3.0258, 1-9,8,.05:..12,16.0 
DATA "*LATTE","LATTE INTERO",100 
1333534 :4 856177 1,119, 04,218, 3 
7» 

DATA "LATTE PARZ.SCREM.",100,3.5 
В bp495 15,1205 04750853157 1 
DATA "LATTE SCREMATO",100,3.6,.2 
793, 361, 122525047187 01 

DATA "YOGHURT INTERO",100,3.5,3. 
9539656357 15 TT 5095799674079 
DATA "YOGHURT SCREMATO",100,3.3, 
.9,4,36,0,0,0,0,0,0 

DATA "YOGHURT СОМ FRUTTA",100,2. 
8,3.3,12.6,88,0,0,0,0,0,0 

DATA "*FORMAGGI","BEL PAESE",100 
:25.4,3022,0,3737,076047 2077, 30,3 
10,0 


9742 
9744 
9746 
9748 
9750 
9152 
9754 
9756 
9758 
9760 
9762 
9764 


9766 


9768 


9770 
9772 
9774 


9776 


9778 


9780 
9782 
9784 
9786 
9788 


9790 


9792 


9794 


9796 
9870 
9871 


DATA "CACIOTTA FRESCA",100,17.3, 
21 3,0, 2617070707 07070 

DATA "EMMENTHAL",100,28.5,30.6,3 
.6,403,.3, 1145, .01,.45,425, 1 
DATA "FIOR DI LATTE",100,20.6,20 
„3,0,265,,4,162,.03,.27,300,0 
DATA "FORMAGGINO",100,11.2,26.9, 
6,309, 3,230, 0230370), 0 

DATA "GORGONZOLA",100,19.4,31.2, 
0,358, 3 612 Ще 4200 

DATA "GROVIERA",100,30.6,29,1.5, 
388,.5,685,.01,.45,400,0 

DATA "MASCARPONE",100,7.6,47,0,4 
53,.2,68,.01,.22,430,0 

DATA "MOZZARELLA",100,19.9,16.1, 
4.9,243,.2,2403,.05,.51, 190,0 
DATA "PARMIGIANO",100,36,25.6, 
0,374,.7,1340,.02,.11,290,0 

DATA "PECORINO",100,28.5,28,0,36 
Gre Li 11607 2037247728070 

DATA "RICOTTA DI PECORA",100,9.5 
,15,4,188,0,274,.03,0,260,0 

DATA "STRACCHINO", 100,18.5,25. 1, 
0,300,.3,567,0,0,0,0 | 
DATA "*UOVA","UOVO ТМТЕВО", 89,13 
"A Ви Боб О г, 911, 2250 


DATA "*OLII Е GRASSI","BURRO",10 
0; 28/83 А4, 1-1, 158707 15, 0,0 
,960,0 

БАТА "МАВСАВТМА",100,.6,84,.4,76 
0,0,20,0,0,75,0 

DATA "OLIO D'OLIVA",100,0,100,0, 
900; 0;0; 0; 0:00 

DATA "OLIO SEMI VARI",100,0,100, 
0,900,0,0,0,0,0,0 

DATA "*DOLCI","CIOCCOLATO FOND." 
7100, 558,341 56.1,542:5,51,.07,.0 
7.9.0 

DATA "CIOCCOLATO АГ LAT",100,8.9 
„37.6, 508, 5657 3,262, 709,739, 25, 
0 

DATA "MARMELLATA",100,.5,0,58.7, 
2227 1 4 187202 ООО А 

DATA "MERENDINE FARC.",100,6.2,1 
5. 1,67- ОТА О SALEIOAO7O7 0 

DATA "ZUCCHERO",100,0,0,104.5,39 
2,2371 20 OO 

DATA "*VARIE","ARANCIATA",100,.1 
по, мо, 38 0,1000070 

DATA "COCA COLA",100,0,0,10.5,39 
70555 0/10 7:070 

DATA "MAIONESE",100,4.2,70,2.2,6 
55, 5, 1824027204784, 07 SUCCO DI 
FRUTTA"; ТОО Т T5567 53787. 
ОЛ? 70874070 

DATA "*PRECUCINATI","BASTONCINI 
PESCE 100 UN 0 1,757 91.77246, 
«ОВ ОТОТ 

DATA "HAMBURGHER",100,12.7,14.2, 
1158522242 2470/50777 051 

DATA " STOP " 

REM INPUT generalita' 

RESTORE 9930: CLS : PRINT АТ 7,2 
; FLASH |; BRIGHT 1;"CALCOLO DEL 
TUO FABBISOGNO" 


9872 


9873 


9874 
9875 


9876 


9877 


9878 


9879 


9880 


9881 
9930 


9931 
9932 
9933 
9934 


9935 


9936 
9937 
9938 
2939 
9940 
9941 
9942 
9943 
9944 


9945 


INPUT “ЕКа! ? "ева: 
COMA WS s "eta: 
OR eta<.1 THEN ВЕЕР 
PRINT АТ 9,155." Mis 
2 

INPUT "Sesso ("; BRIGHT 1;"М/Е"; 
BRIGHT 0;") "; LINE s$ 
DRINIMATULM,S4:"USESSO-----— Ure 

IF eta<=9 THEN LET min=l: LET m 

ax=5: RESTORE 9930: GO TO 9958 

ВЕЕР (5,3: ВЕЕР .5,30: BEEP So 


РЕТНТ- АТ. 9, 
ТЕ eta»99 
4273806 

СО ТО 987 


ІЕ S$="M" OR s$="m" 
PRINT "MASCHIO": 
LET max=13: 
GO TO 9958 

IF eta>100 OR eta<0 THEN 
GO TO 9880 

IF s$="F" OR s$="f" THEN 
PRINT "FEMMINA": LET min=14: 
LET max=21: RESTORE 9943: 

GO TO 9958 

PRINT AT 15,4; BRIGHT 1;"HAI СОМ 

МЕ55О UN ЕВВОВЕ": СО ТО 9873 

5ТОР 

DATA 0- 0151 650272250050 35 

24,35, 450 

DATA 0. 5-1", 950,25, 32. 686017; 4 

5535, 450 

DATA И 3, Т2 50, 2974217 50050,5: 

7,40,250 

DATA 261, 1720, 38, 57;500%9/.7). 

9,40,300 

DATA "7-9",2020,45,67,500,9,.8,1 

.1,40,400 

DATA "10-12",2420,54,81,700,12,1 

ИЗ 45575 


РАТА "13-15",2780,66,93,700,12,1 
st 125245, 725 

DATA "16-19",2960,67,99,700,15,1 
216 45, 750 

РАТА "20-39",3000,64,83,600,10,1 
2446,45, 750 

DATA "40-49",2850,64, 79, 500,10, 1 
.1,1.6,45,750 

РАТА "50-59",2700,64,75,500,10,1 
.1;1.5,45,750 

РАТА "60-69",2400,64,67,500,10,1 
,1.3,45,750 

РАТА "70-100",2100,64,58,500,10, 
.8,1.2,45,750 

РАТА "10-12",2300,56,77,700,18,. 
9,1.3,45,575 | 

DATA "13-15",2500,59,83,700,18,1 
,1.4,45,725 

DATA "16-19",2300,54,77,700,18,. 
9,1.3,45,750 


ТНЕМ 
LET min=6: 
RESTORE 9935: 
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Per ricevere le riviste arretrate 
di SUPERSINC con cassetta 
compilate e spedite il coupon qui sotto! DATA "20-39",2160,53,60,600,18, 
ОП 2 45 150 
9947 ПАТА "40-49",2050,53,57,500,18,. 
В ПГ 45 750 
9948 ПАТА "50-59",1940,53,54,500,10,. 
Ве 5,0750 
9949 DATA "60-69",1730,53,48, 500,10, 2 
Ve ape STA) 
9950 DATA "70-100",1510,53,42,500,10, 
26, 225750 
9958 PRINT АТ 15,4;" Ue BRLGHT 177 
ATTENDERE PREGO"; BRIGHT 0;" 
"а "ртмга( 0) 
9960 FOR i-min TO пах 
9961 READ e$: FOR t=1 TO LEN e$: ТЕ е 
$(t)="-" THEN LET emin=VAL ез (1 
TO t-l): LET emax-VAL ез (t+1 


9963 NEXT t: FOR t=1 TO 9: READ alt): 
NEXT t: IF eta>=emin AND eta<=e 
max THEN LET са1=а (1): LET pro- 
a(2): LET lip=a(3): LET ca=a(4): 
LET: Ғе-а (5); LET tiasa(6): 
LET rib=a(7): LET asc=a(8): 
LET ret=a(9): GO TO 9320 
9965 NEXT i 


Per i residenti all'estero - pagamento anticipato (vaglia o versamento su ns. ccp) 


verrà comunque inviata insieme alla rivista al prezzo qui 
COLE aD < annate RETTA 


Anche se l’ordine riguardasse la sola cassetta questa 
indicato. 


BUONO D’ORDINE PER RIVISTE ARRETRATE 


Se richiesta fattura: 


(0 Assegno allegato n° ................................. 


Viale Restelli, 5 - 20124 Milano - Tel. 6888228 


Ho versato l'importo sul cc. n° 19445204 intestato a J. soft - Milano 


Contanti allegati 
Pagherò in contrassegno al postino al ricevimento 


2 


口 Ho spedito Гітрогіо a mezzo vaglia postale 


E 
Н 


CEDOLA DI ORDINAZIONE RIVISTE ARRETRATE СОМ CASSETTA ALLEGATA 


SUPERSINC 
da сотрйаге е spedire in busta chiusa а 


Al prezzo di L. 15.000 


J.soft - 


uus 
==> 


= 
m 
— 


— Ман 
mamans” 
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—aiscaaaa 


П primo settimanale di software 
su carta per il tuo personal computer. 
Un appuntamento al quale non puoi 
mancare ogni venerdi in edicola. 
Nato in edizione unica, per i piü 
diffusi home e personal 
computer, dal 1 Aprile, 

allo stesso prezzo, saranno 

in edicola le versioni dedicate 
ai prodotti Sinclair (ZX81, 

ZX Spectrum e QL) e ai s | 
prodotti Commodore (VIC20, LE 
C16 e C64). : ) 

In piu un'edizione esclusiva 
per gli utenti dei personal 
Apple, gli home computer 
Texas e i nuovissimi sistemi MSX. 
Una grossa поуйа: la possibilità 
di abbonarsi dal 1 Aprile 1985 

al 31 Dicembre 1985 per ricevere 
38 numeri del settimanale 


(8) 
comodamente а casa con un 
notevole risparmio. Chi si abbona b soft 
riceverà ogni 15 giorni 2 numeri EDITRICE Ҹә 
in anticipo rispetto у Жұ 4 
5 . T З Tagliando abbonamento a Рарегбой da inviare in busta chiusa a: 
all'uscita in edicola. ” J.soft - V.le Restelli, 5 - 20124 MILANO ' 
Моп 
9 perdere questa Е Abbonamento a 38 numeri di PaperSoft al prezzo speciale di L. 30.000 anziché L. 38.000 1 
оссавіопе! 
| edizione Sinclair (Р501) О edizione Commodore (PC01) O edizione Арріе/Т199/М5Х (PVO1) ü 
Compila subito I contanti allegati О assegno allegato n. 
il coupon qui i ho versato l'importo sul c.c.p. n. 19445204 intestato a J.soft - MLANO 
riportato e spediscilo С°" ies 
с: | Уа Città | 
J.soft | САР Ргоу. Data I 
V.le Restelli, 5 | =" Г 


di Ferruccio Mandorli 


Godetevi, insieme ai vostri ami- 
ci, questo entusiasmante gioco 
di società! 


ell'era del computer e dei videoga- 

me tutto si trasforma e si moder- 
nizza. Era quindi giusto che anche un 
vecchio e famosissimo gioco, qual e il 
Risico, assumesse un nuovo look, ade- 
guandosi ai tempi. 
Con il seguente programma, infatti, tutti 
i sinclairisti e risicomaniaci potranno 
unire le loro passioni, scatenandosi in 
avvincenti battaglie combattute su vi- 
deo. 
Per quei pochi che non conoscessero il 
RISICO, daremo ora una ripassata alle 
sue principali regole di gioco. 
Ricordiamo, innnanzi tutto, che il gioco 
si svolge su una cartina rappresentante 
il mondo e divisa in 42 territori, su cui 
ogni giocatore, con battaglie all'ulti- 
mo... dado, cerca di spazzare i carri ar- 
mati avversari per poter raggiungere il 
suo obiettivo e incoronarsi vincitore. 
Ora il planisfero sarà disegnato, rispet- 
tando fedelmente i confini originali, dal 
vostro fedele Spectrum, che provvede- 
rà anche, ad un vostro comando, a lan- 
ciare i dadi ed a spostare le armate 
secondo le vostre indicazioni. 
Ma procediamo con ordine. 
Nell'originale gli obiettivi sono distribui- 
ti sotto forma di carte all'inizio del gio- 
co: essendo segreti, non vengono visua- 
lizzati dal computer, né tantomeno ne 
viene evidenziato il conseguimento. Sa- 
rà quindi utile scriverli (vedi tabella ap- 
posita) su alcuni fogliettini; ogni giocato- 
re all'inizio della partita ne pescherà 
uno, per poi mostrarlo alla fine, in caso 
di vittoria. 
La seconda cosa da fare e quella di 
stabilire i turni di giocata. Questo viene 
normalmente fatto mediante un lancio 
preliminare di dadi, ed anche il compu- 
ter vi chiederà, dopo una breve presen- 
tazione, di procedere a questi lanci pre- 
liminari. 
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Una volta stabiliti i turni si dovranno 
inserire nel calcolatore i nomi e i colori 
dei vari giocatori, ovviamente seguendo 
l'ordine definito dal lancio dei dadi. 
Questa operazione e importante: infat- 
ti, quando avrete terminato di effettuar- 
la, lo Spectrum provvederà alla distri- 
buzione dei 42 territori fra i partecipanti 
e, nel caso che questi ultimi non siano 
un divisore di 42 i territori rimanenti 
saranno assegnati partendo dal primo 
nella lista dei giocatori. 

Oltre a distribuire i territori, lo ZX prov- 
vederà anche ad assegnare ad ognuno 
le armate iniziali, secondo la seguente 
regola: 


35 armate per 3 giocatori 
30 armate per 4 giocatori 
25 armate per 5 giocatori 
20 armate per 6 giocatori 


(tenete presente che nell'assegnare i 
territori il calcolatore porrà 1 armata 
su ogni territorio assegnato). 

Partendo dal primo giocatore della lista 
si dovranno quindi piazzare le armate. 
Per far questo occorrerà dare nell'input 
“NOME” la sigla del territorio ove si 
intendono piazzare le armate e nell'in- 
put “МОМЕВО” il numero di armate da 
piazzare in quel territorio. 

Si vedrà cosi diminuire il numero di PIA 


(numero di armate ancora da piazzare)， 
mentre aumentera il numero di ARM 
(numero di armate di quel giocatore già 
presenti sulla cartina). 

Resterà ovviamente invariato il numero 
di TER (numero di territori posseduti 
da quel giocatore). 

Un segnale acustico avviserà quando un 
giocatore avrà finito il suo piazzamento 
iniziale, passando cosi al giocatore suc- 
cessivo, cambiando sul video il nome 
del giocatore e il colore del carro di rife- 
rimento. 

Quando tutti avranno piazzato le loro 
armate si potrà entrare nel vivo del gio- 
co. 

Ogni turno di gioco si compone di due 
fasi: “attacco”, “piazzamento rinforzi”. 
Nella prima fase il giocatore combatte 
per cercare di aumentare il numero dei 
suoi territori e per cercare di avvicinarsi 
al suo obiettivo finale. 

Gli attacchi vengono effettuati per mez- 
zo di dadi e possono avvenire solo tra 
territori confinanti (per i confini via ma- 
re vedere l’apposita tabella). 

In questo programma non si ha la possi- 
bilità di scegliere con quante armate at- 
taccare o difendere, come permettereb- 
be di fare.il gioco originale, ma è invece 
necessario utilizzare il massimo delle 
proprie forze, nel modo seguente: 

— l’attaccante utilizza un dado in meno 
del numero di armate possedute sul ter- 
ritorio attaccante (mai più di 3 dadi co- 
munque, anche se le armate sono in 
numero maggiore); 

— il difensore si difende invece con un 
numero di dadi pari al numero di arma- 
te presenti sul territorio attaccato (sem- 
pre fino a un massimo di 3 dadi). 

Il confronto dei dadi si effettua acco- 
stando i dadi di valore maggiore fra lo- 
ro, e via via decrescendo; per esempio, 
vediamo un ipotetico esito di attacco: 
lancio attaccante 6 4 2 

lancio difensore 5 5 2 


In questo caso l’attaccante perde due 
armate: 4 contro 5 e 2 contro 2; infatti 
in caso di parità la vittoria va al difenso- 
re. Il difensore invece perde l’armata 
dal confronto 6 contro 5. 


Altro esempio: 

lancio attaccante 4 3 

lancio difensore 5 

In questo caso l’attaccante perde Гаг- 
mata dal confronto 4 contro 5, mentre 
il dado 3 non viene contato. 

Per effettuare gli attacchi è sufficiente 
inserire пей при! “attaccante” la sigla 
del territorio attaccante e successiva- 
mente nell’input “difensore” la sigla del 
territorio attaccato. 


A questo punto il computer, dopo aver 
controllato che i territori siano confinan- 
ti, lancerà i dadi dell’attaccante; schiac- 
ciando ENTER verranno poi lanciati i 
dadi del difensore. 

Dopo aver premuto ancora una volta 
ENTER si tornerà a vedere la cartina, 
che verrà aggiornata dallo Spectrum 
eliminando le armate perdute (rappre- 
sentate da numeri). 


A questo punto, se sul territorio attàc- 
cato sono ancora presenti delle armate, 
si tornerà ad una nuova richiesta di at- 
tacco; se invece l’attaccante è riuscito 
ad eliminare tutti i carri avversari, allo- 
ra il computer colorerà la sigla del terri- 
torio conquistato con il colore dell’attac- 
cante e chiederà quante armate questi 
intenda trasportare dal territorio di at- 
tacco al territorio vinto. 

L’unico limite posto a questo sposta- 
mento è che su ogni territorio deve sem- 
pre rimanere almeno un’armata con 
funzioni di presidio. 

Eftettuato lo spostamento si potrà pro- 
cedere ad un nuovo attacco. Per termi- 
nare gli attacchi occorre premere EN- 
TER alla richiesta di una nuova sigla di 
attaccante. 

In questo caso, come nell’originale, si 
ha la possibilità di effettuare un ulterio- 
re spostamento di armate, tra territori 
confinanti. 

Per fare ciò occorre specificare, in ordi- 
ne: la sigla del territorio di partenza 
(sposto da ” ”), la sigla del territorio di 
arrivo (a” ”) ed infine il numero di arma- 
te che si intendono trasferire dal primo 
al secondo territorio (quante ne sposti 
? » 3). 

Se поп si desidera effettuare lo sposta- 
mento, basta premere ENTER alla ri- 
chiesta di sposto da" ". 

Fatto questo lo Spectrum provvederà 
ad assegnarvi una carta (vedremo poi 
a cosa serve) nel caso abbiate conqui- 
stato, durante i vostri attacchi, almeno 
un territorio. 

Il programma vi dà anche la possibilità 
di rivedere eventuali carte già conqui- 
state; sarebbe peró utile che ognuno ri- 
cordasse a memoria le proprie, per evi- 
tare, rivedendole su video, di mostrarle 
anche agli avversari. E ora veniamo alla 
seconda fase. 

Nell'originale i rinforzi venivano piazzati 
prima di attaccare, mentre ora invece 
vengono piazzati al termine del turno di 
attacco. ІІ numero di armate di rinforzo 
(calcolato automaticamente dal compu- 
ter) é dato dal numero dei territori pos- 
seduti diviso per 3, senza contare even- 
tuali resti. Per esempio, 13 territori 
danno diritto a 4 armate di rinforzo 
(13:324 con resto 1). 

Ulteriori rinforzi possono provenire da 
tris (vedi CARTE) o dal possesso di inte- 
ri continenti, secondo la tabella seguen- 
te: 


AMERICA DEL NORD - + 5 armate 
AMERICA DEL SUD = + 2 armate 
EUROPA = 十 5 armate 
AFRICA = 二 3armate 
ASIA = + 7 агтае 
OCEANIA = + 2 агтае 


Рег piazzare le armate di rinforzo si de- 
ve procedere come si e fatto per il piaz- 
zamento delle armate iniziali. 
Terminato il piazzamento un segnale 
acustico indicherà il cambio di turno; 
toccherà ora al giocatore seguente ini- 
ziare i suoi attacchi. 


Le carte 

Le carte sono 44, divise in cannoni 
(can), fanti (fan) e cavalieri (cav) рій due 
jolly, e servono per effettuare combina- 
zioni che danno diritto ad armate sup- 
plementari, secondo la seguente tabel- 
la: 

3 cannoni = + 4 armate 

3 fanti 2 + 6 armate 

3 cavalieri = + 8 armate 

3 carte diverse = + 10 armate 

2 carte uguali + jolly = + 10 armate 
2 carte diverse + jolly = + 12 armate 
Avrete notato, giocando, che ad ogni 
carta assegnata e abbinato anche il no- 
me di un territorio (esempio: "FAN 
ис”). 

Questo serve perche уепдопо assegna- 
te 2 armate supplementari per ogni ter- 
ritorio posseduto che compaia su una 
carta, quando questa e utilizzata per for- 
mare un tris. 

Le carte utilizzate per i tris vengono 
automaticamente eliminate dal gioco; 
quando tutte le carte sono state distri- 
buite Spectrum provvederà a rimesco- 
lare il mazzo. 


Gli obiettivi 


Diamo ora i principali obiettivi esistenti 
sulle carte del gioco originale; é tuttavia 
ovvio che i giocatori possono, all'inizio 
del gioco, crearsi nuovi obiettivi, da scri- 
vere sugli appositi fogliettini. 


@ 6 obiettivi del tipo: 

distruggi le armate “colore da blu a gial- 
lo" oppure, se sei tu il possessore di 
quel colore, o se quelle armate sono già 
state distrutte, conquista 24 territori 

€ conquista 24 territori 

€ conquista 18 territori con due arma- 
te almeno per territorio 

€ conquista ASIA e SUD AMERICA 
€ conquista EUROPA, SUD AMERI- 
CA piü un terzo continente a scelta 

€ conquista EUROPA, OCEANIA piü 
un terzo continente a scelta 

€ conquista NORD AMERICA e AFRI- 
CA 

€ conquista NORD AMERICA е 
OCEANIA 

€ conquista ASIA e AFRICA 


I confini 

Diamo ora un elenco dei confini via ma- 
re: 

In EUROPA : is-sv gb-fr gb-ec gb-sv 

In AFRICA : ma-as ma-et 

In ASIA : gi-ch gi-mo 

In OCEANIA : bo-ow bo-oe bo-ng ng-oe 
Tra ASIA e NORD AMERICA : ch-al 
Tra ASIA e OCEANIA : th-ng 

Tra AFRICA e SUD AMERICA : ao-br 
Tra AFRICA e EUROPA : ao-fr ao-it 
eg-it 

Tra NORD AMERICA e EUROPA : gr- 


is 

Tra ASIA e EUROPA : li-it 

Nota bene : li-eg non confinano 

A questo punto, sperando di essere sta- 
ti sufficientemente esaurienti, vi augu- 
riamo buon divertimento! 
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Descrizione del programma 

Il programma agisce su alcune matrici precostituite, che quindi verrebbero annullate dando il via al programma con un comando RUN; ecco perché il 
gioco è stato salvato su cassetta con l’auto-start. 

Le suddette matrici sono: 


1) g$(ng, 7) 
2) g(ng; 13) 
3) t (42,5) 
4) n$(42,2) 
5) 2$(94,4) 
6) j(42) 


dove ng indica il numero di giocatori, variabile da partita a partita. La matrice 1 contiene i nomi dei giocatori, la 2 contiene, per ogni giocatore, il 
numero di armate possedute, il numero del colore relativo al giocatore, il numero dei territori posseduti; rimangono poi 10 spazi riservati ad un massimo 
di 5 carte, rappresentate da un numero da 1 a 4 per indicare le varie carte (fan, can, cav о jolly), accompagnate da un secondo numero, che indicherà 
il territorio. 4 

La matrice З ё quella principale, e contiene per ognuno dei 42 territori: un numero da 1 a 4 che indichi la carta abbinata а quel territorio, il numero 
del colore con cui à colorato quel territorio, due numeri per indicare riga e colonna in cui va stampato sulla cartina il territorio ed infine il numero di 
armate presenti su di esso. 

Le tre rimanenti matrici contengono rispettivamente: le sigle dei 42 territori, le sigle accoppiate dei territori confinanti, una matrice numerica di supporto 
per la matrice dei territori. 


Linee Commento 

1-4 Presentazione iniziale 

7-9 Creazione caratteri grafici per la cartina 

13 Indirizzamento a sottoprogramma: creazione caratteri grafici per il gioco 

14-24 Continua la presentazione 

35-40 Lancio preliminare dei dadi 

50-70 Input nomi e colori dei giocatori 

100-131 Distribuzione iniziale dei territori ed inizializzazione di alcune matrici 

134 Richiamo su video della cartina 

140-205 Piazzamento armate con relativi controlli 

210-410 Blocco principale. Contiene: Input attaccante con relativi controlli (222-234); Input difensore con relativi controlli (235-241). Invio 
a sottoprogrammi per controllo confini, lancio dadi e spostamenti. 

Sottoprogrammi 

500 Stampa dati (sigle territori e numeri armate) 

1000 Disegno confini 

2000 Lancio dadi 

3000 Controllo possesso interi continenti 

4000 Riconoscimento tra spostamenti durante gli attacchi e spostamenti di fine turno 

5000 Rimescolamento e assegnazione carte; controllo di eventuali tris 

6000 Musica (se 2 la prima volta che si possiede un intero continente) 

7000 Controllo confini 

9010 Preparazione iniziale cartina 

9099 Memorizzazione cartina 

9200 Fine gioco per conquista totale del mondo 

Nota bene 


Sulla cassetta à memorizzato per primo un mini programma - Listato 1 — che contiene una routine in linguaggio macchina e le successive istruzioni per 
il caricamento prima dello SCREEN$ e poi del programma principale (listato 2). 

Volendo creare una copia del programma priva dello SCREEN$ di presentazione (per ridurre il tempo di caricamento) occorre cancellare la linea 30 
del listato 1 e salvare entrambi i programmi con autostart alla linea 1 (esempio: SAVE *nome" LINE 1: SAVE nome 2" LINE 1). 


Risico 
Versione per ZX Spectrum 48K 
Listato 1 


10 BORDER 0: PAPER 0: INK 7: CLS 

11 CLEAR 58399: LET а5-"03300006401 
70642280010000272371762010330642 
28017000064001000027237176201" 

12 FOR n=0 TO 23: POKE 58400+nv 
VAL а$ (3*п+1 TO 3*n+3): NEXT n 

20 PRINT AT 10,9; INK 7; FLASH !;" 
PLEASE WAIT " 

30 LOAD ""SCREENS 

35 PRINT #0;AT 0,0; BRIGHT № 
РАРЕК 4;" 


37 INK 4: PAPER 4: BRIGHT 1 
38 PRINT AT 8,0;" " 
40 LOAD "" 
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Risico 
Versione per ZX Spectrum 48K 


Listato 2 


1 PAPER 0: BORDER 0: BRIGHT 1: 
CLS 
2 PRINT AT 1,9; INK 2; FLASH 1; "ST 
OP THE TAPE" 
3 FOR i-2 TO 7: PRINT AT 8,4; 

INK i;"{3SG8} 1568) {3568} 
(sc8) {3568} {3568} "AT 9, 4 
;"(SG8) {568} 1568) {568} 
{568} 1508) {$68} {568} а 
АТ 10,4; "(3868) (8568) {3568} 
{$68} {568} {568} {568} "> 
АТ 11,4;"{2SG8} {568} 

{568} {568} 1568) {SG8} 
{SG8}";AT 12,4;"{SG8} {SG8} 
{sc8} (3868) (868) {3568} 
{3SG8} n 


о O xo со - 


66 


67 


68 
70 
99 
100 
101 


102 


PRINT АТ 16,2; INK 12" by Fer 
ruccio Mandorli": BEEP 1,5*i-20: 
NEXT i: PAUSE 5: BEEP 2,14 
LET u=PEEK 23675+256*PEEK 23676 
FOR a-u ТО u+95 
POKE a,b(a-65367): NEXT а 
PAPER 0: BORDER 0: CLS 
GO SUB 9000: LET u=PEEK 23675425 
6*PEEK 23676: FOR a-u TO u+167: 
READ s: POKE a,s: NEXT a 
PRINT AT 20,8; INK 5;"MESCOLO LE 
CARTE": FOR 1-1 TO 50: ВЕЕР .01 
21 NEXT 12 CES GO SUB 5500 
LET al=0 
FOR 1=1 ТО 6 
FOR j=1 ТО 29-(i-1)*4 
PRINT AT 1332 INK i;CHR$ 150+ 
CHR$ 151+CHRS 152 
PRINT АТ 14,3; INK i;CHR$ 153+ 
CHR$ 154+CHRS 155 
PRINT АТ 12 + Ци INK 7 ОНЕб› 159% 
АТ ФЕТ; ТМК. CHRS 160 
PRINT AT 13,Л-% SEAT 14;2-1;" 
"SAT 1275 "SAT ШЕНІ" " 
ВЕЕР .005,1-20 
МЕХТ 3 
NEXT і 
PRINT АТ 5,5; ТЫК 6p'UPTRATE: I DA 
DI РЕК"; АТ 6,5;"STABILIRE I TURN 
I" 
INPUT "PREMI ENTER";c$ 
DIM м(3): LET ssl: LET £=0: 
LET j=12: LET e=7: LET v=6 
BEEP .5,10 
GO TO 2000 
INPUT "numero giocatori (da 3a 
61 "аа BEEP 125) 25: IE CODE. ( 
STR$ па) <51 OR CODE (STR$ па) >54 
THEN GO TO 50 
PRINT АТ TrA ТЫК 7/5 N; "о" С 
IOCATORI" 
LET tot=20+(6-ng)*5 
DIM g$ (ng,7) 
DIM 4(п4,13) 
FOR i-1 TO ng: FOR j-4 TO 8: 
LET g(i,j)s5: NEXT j: NEXT i 
FOR і-! TO ng 
PRINT AT 21,0; INK 7;"NOME Мед 
;" (max 7 lettere)": INPUT g$(i, 
T: о" COLORE (da Па 6)“; 
g(i,2) 
IF CODE (SERS 4(1,2))<49 OR 
CODE (STR$ g(i,2))>55 THEN 
PRINT #0; "COLORE NON VALIDO": 
BEEP .5,20+i: GO TO 65 
PRINT АТ i*2+2,7; INK 4(1,2);45( 
ТУЛЕПОВ) 
ВЕЕР .5,20-і 
МЕХТ 1 
PAPER 0 
REM DISTRIBUZ. TERRITORI 
PRINT АТ 0,13; FLASH 1; INK 7;"A 
TEENDT "АТ T 4 DISTRIBUISCO I T 
ERRITORI" 
PRINT AT 210%" 
" 


POR DƏ TT hO 423 ЕТЕ (Мер2у/е0% 
NEXT i 

LET CS1 БЕТ Пе 

IF c>ng THEN LET cz] 

BEEP .01,40 

LET pun=INT (RND*42) +1 

IF t(pun,2)<>0 THEN СО PO TTS 


ТЕТ t(pun,2)=g(c,2) 

БЕТ t(pun,5)=1: LET g (G 1) eg teya 

) +1 

LET c=c+l 

ТЕ in<42 THEN LET іп=іп+1: 

со то 110 

FOR а-1 TO ng: LET 4 (а,3) =9 (а, 1) 
МЕХТ а 


PNK; Ae CLS 

RANDOMIZE USR 58412 

GO SUB 500 

FOR у-! TO ng: BEEP .25,30 
LET spos=0 


LET pia-tot-g(y,!) 

PRINT АТ 21,19; INK 4(у,2);45(у, 
тои) 

PRINT АТ 20,7; INK g(y,2);CHR$ 1 
50+CHR$ 151+CHR$ 152;AT 21,7; 
CHR$ 153+CHR$ 154+CHR$ 155 

PRINT AT 18,19;"Ter:";g(y,3); 

АТ 19,19;"Arm:";g(y,1);AT 20,19; 
"Рта" ерта 

ТЕ g(y,3)<10 THEN PRINT АТ 852 
даи " 

PRINT АТ 19,19;"Arm:";g(y,1); 

АШ 20, 19: piat:':pra 

IF pia=0 THEN GO ТО 202 

INPUT "Nome";t$,"Numero";n 

IF CODE (STR$ n)«49 OR CODE ( 
STRS n)>57 THEN PRINT #0; "ЕККОК 
E": BEEP .5,20: GO TO 160 


FOR js! TO 42 

ТЕ дт д Cy Т ТО 2) THEN СОС ТО 1 
80 

NEXT J 

ТЕ t(j,2)4»g(y,2) THEN 

PRINT #0;AT 0,0;"NON TOCCARE I 
TERRITORI NON TUOI": BEEP 2,20: 
GO TO 160 

IF pia-n<0 THEN PRINT %0;АТ 0,2 
;"BARO!!! NON CREDERE DI POTERMI 
FREGARE": BEEP 2,25: GO TO 160 
LET pia=pia-n 

LET t(j,5)=t(j,5)+n: LET 9(у,1) = 
g(y,1)+n 


IF pia>=0 THEN PRINT AT 19,23;" 
"ЗАТ 20,22: и: С0506: 500: 
СО ТО 155 


PRINT AT 19,237" АТУ2022 И 
ТЕ а1=1 THEN RETURN 

МЕХТ у 

FOR р=1 TO ng: ВЕЕР .25,30 

ТЕ 9(р,1) =0 THEN NEXT p: ТЕ р2п 
а ТНЕМ со ТО 210 

PRINT АТ 21,19; INK а(р,2) ;9$ (р, 
1 то) 
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217 PRINT'AT 20, 195" MAT 19/3197 
" 


218 LET tris=0: LET st-g(p,3) 
220 IF g(p,3)=42 THEN GO ТО 9200 
221 PRINT АТ 21,19; INK а(р,2) ;g$ (p 
‚| ТО 7);AT. 20,7;CHRS$ 150+СНЕЗ 1 
ПЕСНЕ 1523АТ 21; 7  СНЕСВ 153 + 
CHR$ 154+CHR$ 155: PRINT АТ 18, 1 
9; "pers ируз) те 90р) 170 
THEN PRINT АТ 18,24;" " 
222 INPUT "Attaccante ";a$ 
223 IP а5="" THEN СО ТО 370 
224 IF LEN a$<>2 THEN PRINT %0; 
АТ 0,0; "СОЗА CAVOLO STAI COMBINA 
МОО” АТ 1,5;48(р,1 TO 7): ВЕЕР 3 
: 750: со то 222 
225 FOR КЕЛИ ТО 42 
227 IF a$=n$(k,1 ТО 2) THEN СО ТО 2 
32 
230 МЕХТ К 
231 ТЕ k>=43 THEN PRINT #0;AT 0,0;" 
COSA CAVOLO STAI COMBINANDO"; 
ATO! ба (р 1 TO 7): BEEP: 3,50: 
со то 222 : 
232 ТЕ t(k,5)«2 THEN PRINT %0;АТ 0, 
0;"НАІ ОМА SOLA ARMATA 001!!! 
"ВЕЕР 2,2060 то 220 
233 IF t(k,2)<>g(p,2) THEN | 
PRINT #0; АТ 0,0; "ERRORE": 
ВЕЕР 2,20: со то 220 
234 ТЕ вров-! THEN RETURN 
235 INPUT "Difensore "; 45 
236 IF LEN d$«»2 THEN PRINT #0; 
АТ 0,0;"COSA CAVOLO STAI COMBINA 
МОО" “АЛЫ 595 (р, К то) = ВЕЕР 3 
150 GO 107235 
237 FOR us] TO 42 
239 IF d$-n$(u,l TO 2) THEN GO TO 2 
42 
240 NEXT u 
241 IF u>=43 THEN PRINT #0;AT 0,0;" 
COSA CAVOLO STAI COMBINANDO"; 
АТО Баб (руло ТОСТАР БЕЕРТ350% 
со то 235 
242 GO SUB 7000: ТЕ q=0 THEN 
со то 222 
243 ТЕ зроз=1 THEN RETURN 
244 LET m-t(u,2) 
245 FOR 1=1 TO ng 
246 IF 4(1,2)-п THEN СО TO 248 
247 NEXT i 
248 LET m-i 
249 LET a=t(k,5)-1 
250 IF a>3 THEN LET a=3 
255 DRT dst(ür5) 
257 ІК а>3 THEN LET d=3 
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350 
351 


352 
353 
354 
355 


356 


DIM 1(3) 
LET ј=1: LET v-1: LET e-2: LET 5 
-a: GO SUB 2000 
КОН 1- то ЗЕ БЕТ =): 
МЕХТ 1 
ІМРОТ с5 
DIM о(3) 
LET 1-1: LET v=12: LET е=1: 
LET s-d: GO SUB 2006 
FOR Gl то 3, Ея 
NEXT i 
INPUT c$ 
FOR і-2 TO 3 
FOR 3-3 ТО 2 STEP -1 
IF 1(j)>1(j-1) THEN LET х-1(1-1 
УХ ШЕР Даев Пее e LER TONE 
NEXT j 
NEXT i 
FOR і-2 TO 3 
FOR 3-3 TO 2 STEP -1 
IF 0())20(3-1) THEN LET х-о(3-1 
): LET о(1-1)-о(3): LET o(j)=x 
NEXT j: NEXT i 
IF d»a THEN LET d-a 
FOR 1=1 ТО а 
ТЕ 1(1)<=0(1) THEN -LET t(k,5)=t 
(К,5) -1: LET 9(р,!) =9(р,1) -! 
ТЕ PANSO G) THEN.. БЕТ 6 0,5) =Е( 
u,5)-1: LET g(m,1)=g(m,1)-1 
МЕХТ 1 
IF t(u,5)»0 THEN PAPER 0: INK 7 
: CLS : RANDOMIZE USR 58412: 
GO SUB 500: GO TO 220 
LET 9(р,3) =9(р,3) +1: LET g(m,3)- 
g(m,3)-1: LET t(u,2)=t(k,2) 
PAPER. 0: INK 7: CLS : 
RANDOMIZE USR 58412: GO SUB 500 


PRINT АТ 18,19;"Ter:";g(p;3) 
IF а(р,3)<10 THEN "PRINT AT 18,2 
4;" " 
RESTORE : PRINT AT 20,7; INK g(p 
72) ;CHRS 150+CHR$ 151+CHR$ 152; 
AT 21,7;CHR$ 153+CHR$ 154+CHR$ 1 
Db AT 19, 1: СНВ! ПӘЛФТЕОЕ i=PI 
TO 5*PI STEP PI/2: PRINT AT 1j 
9,8;CHRS$ (156+ (ABS SIN 1)*2): 
READ a,b: BEEP a,b: NEXT i 
INPUT QUANTE NE SPOSTI ? wiis 
IF s-0 THEN PRINT #0;AT 0,0; "ЕВ 
RORE": BEEP 2,20: GO TO 350 
ТЕ t(k,5)-s«! THEN. PRINT #0; 
АТ 0,0; TROPPE!!!": BEEP 2,20: 
GOTO 350 
PRINT АТ 19972" > 
IF вров<>1 THEN GO SUB 6000 
БЕРЕ (а, 5)-е (а, 5) +s: LET Ute (K, 5) = 
t(k,5)-s 
IF cont<>0 THEN LET cont=0: 
PRINT АТ 19,8 CHRSfC 159: PRINT 
AT UI9 7 мк g (py2 CHRS 7: 
FOR 1-0 ТО (!3/2)*PI STEP PI/ 
2: PRINT АТ 18,8; INK 4(р,2); 
CHRS (160-(АВ5 SIN i)): READ a,b 
: BEEP a,b: NEXT i: PRINT AT 18, 
8;" "SAT omn " 


357 
358 
360 
370 
3:75 


376 


GO SUB 500 

IF 5роѕ=1 THEN RETURN 

со то 220 

GO SUB 4000 

ТЕ st<>g(p,3) THEN СО SUB 500 


IF tris<>0 THEN PRINT #0;AT 0 
‚10; INVERSE 1;"ТВІЅ DA ";tris: 
ВЕЕР 135,12: ВЕЕР .35,7: ВЕЕР. 
20,5: ВЕЕР .20,4: ВЕЕР 2202 
ВЕЕР .35,12: ВЕЕР «Эз, 7: ВЕЕР. 
20,5: ВЕЕР .20,4: ВЕЕР .20,2: 
ВЕЕР .35,12: ВЕЕР . 3525 4: ВЕЕР Е 
20,5: BEEP .20,4: BEEP .25,5: 
BEEP .6,2 

IF g(p,3)«3 THEN LET pia=l+tris 
: GO TO 395 

GO SUB 3000 

LET pia-INT (g9(p,3)/3)+tris+cont 


LET cont=0 

LET а1-1: LET y=p 

БЕТ spos=0: GO SUB 150 
NEXT p 

GO TO 210 

INK 7: CLS 

GO SUB 1000 

REM STAMPA 

FOR і-1 TO 42 

PRINT AT t (1,3) ау 
по, чо 2) 

МЕХТ 1 

FOR ізісто 42“, 

ТЕ 1525 THEN NEXT i 
PRINT AT t(i,3)41,t(i,4); 
i,2);t(i,5) 


INK ЕЛЕР? 


INK t( 


IF t(i,5)<=9 THEN GO SUB 700: 


PRINT АТ t(i,3)-41,t(i,4)-41; 
PAPER g;" " 
NEXT i 
PRINT AT 20,12; 
,5) 
ТЕ t(25,5)<=9 THEN. PRINT АТ 20, 
13; PAPER 6;" " 
RETURN 
IF і>-! AND і<-8 OR i-38 THEN 
LET g-5: RETURN 
IF і>-9 AND i<=11 OR i-23 THEN 
LET g-4: RETURN 
IF і>-12 AND i<=14 OR i-24 OR і- 
32 THEN LET 4-1: RETURN 
IF i>=21 AND i«-22 THEN LET 4-1 
: RETURN 
IF і>-17 AND і<-18 OR i-34 OR i- 
37 THEN LET g-3: RETURN 
IF і-15 OR i-19 OR i-20 OR 1=31 
OR i-36 THEN LET 4-6: RETURN 
LET g-2: RETURN 
REM AMERICA NORD 
RANDOMIZE USR 58412 
INK 0 
REM CONF 
PLOT 0,154: DRAW 20,0: DRAW 0,21 
: PLOT 20,154: DRAW 34,0: DRAW 0 
,21: PLOT 54,154: DRAW 10,0: 


TNK £ (25725 Е(25 


1099 
1109 
1110 


1199 
1209 
1210 


1299 
1399 
1499 
1599 
1609 
1610 


1699 


1799 
1809 
1810 


1899 
1909 
КОЛО 


ТӨЛІ 


1918 
1919 
2000 
2001 
2002 
2005 


2006 


DRAW 0,-8: PLOT 64,151: DRAW 8, 
0: PLOT 64,146: DRAW -12,0: 
DRAW 0,-24: DRAW -28,0: DRAW 0, 
32: PLOT 0,130: DRAW 24,0: 
PLOT 0,104: DRAW 24,0: DRAW 6,1 
8: PLOT 24,104: DRAW 8,-8: 
PLOT 54,121: DRAW 9,-9 
REM AMERICA SUD 
REM CONF 
PLOT 4,66: DRAW 20,0: DRAW 8,-8: 
DRAW 8,0: DRAW 0,3: DRAW 23,0: 
PLOT 25,32: DRAW 0,3: DRAW 29,0 
: DRAW 0,-3: PLOT 36,35: DRAW 07 
23 
REM AFRICA 
REM CONF 
PLOT 86,21: DRAW 20,0: DRAW 0,11 
: DRAW 21,0: PLOT 81,40: DRAW 0, 
2: DRAW 22,0: DRAW 4,-9: PLOT 10 
3,40: DRAW 0,12: PLOT 103,74: 
DRAW -13,0: DRAW 0,-21: DRAW 24 
©з PLOT 113,55: DRAW 0,3: 
DRAW 6,0: DRAW 10,7: DRAW 5,0 
REM MADAGASCAR 
REM ISLANDA 
REM GRAN BRETAGNA 
REM OCEANIA 
REM CONF 
PLOT 228,31: DRAW 0,-26: DRAW 8, 
0: DRAW 0,-5 
REM GIAPPONE 
REM EUROPA 
REM CONF 
PLOT 112,119: DRAW 0,=8: DRAW 1, 


О ПОВАИУ 0, 7: PLOT 113,113: 
DRAW 26,0: DRAW 10,-17: РГОТ 13 
9,113: DRAW 0,22: DRAW 20,0: 
PLOT 139,135: DRAW -18,8 
REM ASIA 
REM CONF 
PLOT 242,136: DRAW 0,16: DRAW -2 
6, ЗЕ DRAW IO JES: PLOT 285 162: j 
DRAW -20,0: DRAW 0,-5: DRAW -36 
„0: РОТ 230, ТОО ОВА -20/0: 
DRAW 0,16: DRAW 10,0: DRAW 0,20 
: DRAW 10,0: PLOT 220,136: 
DRAW -24,0: DRAW 0,20 
PLOT 230,120: DRAW -34,0: DRAW 0 
‚-35: DRAW -10,0: DRAW 0,-11: 
DRAW 26,0: DRAW 0,17: DRAW 18,0 
: PLOT 206,73: DRAW 0,-9: PLOT 1 
96,120: DRAW 0,10: DRAW -20,0: 
DRAW -16,16: PLOT 194,107: 
DRAW -24,0: DRAW 0,5: DRAW -2,0 
: PLOT 185,74: DRAW -16,-18: 
PLOT 184,82: DRAW -17,0: DRAW - 
7,3 
INK 7 
GO TO 9099 
REM DADI 
PAPER 4 
CLS 
PRINT AT 0,7;"ENTER PER RITIRARE 
" 


DIM и (3) 
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2007 
2008 
2010 
2020 
2022 
2025 


2030 
2040 
2050 
2053 


2055 
2056 
2060 
2070 


2080 


2090 
2100 
2110 
2120 
2130 
2140 
2150 


2160 
2170 
2180 
2190 
2200 


2209 
2210 


2220 
3000 
3005 
3040 
3045 
3050 


3055 
3060 
3062 
3065 
3070 
3075 


3080 
3085 
3087 
3090 
3095 
3100 


FOR hs] ТО s 

PAPER 4 

LET b=INT (RND*6)+1 

IF b=0 THEN GO ТО 2010 

LET wí(h)sb 

PRINT AT v,j; INK e; INVERSE 1;" 
T(5G8]u" 

FOR i=v+1 TO v+5 


PRINT АТ 1,7); INK е;"І7668)" 
NEXT і 

PRINT АТ v+6,j; INK e;"U{5SG8}T" 
INK 0 

PAPER e 

LET r=v+3: LET с=ј+3 


IF b=] OR bs3 OR 
GO TO 2090 

IF b-2 OR b-4 OR b-6 THEN 

GO TO 2110 

PRINT AT сна 

ТЕ b=1 THEN СО TO 2200 

PRINT АТ х-2,с-2167 

PRINT AT к+2,с+2; "6" 

ТЕ b=2 ОВ b=3 ТНЕМ СО ТО 2200 
PRINT AT к-2,с+2; "8" 

PRINT АТ r+2,c-2;"S" 


b=5 ТНЕМ 


ТЕ b=4 ОВ b=5 ТНЕМ СО ТО 2200 
PRINT АТК с-2 "5! - 

PRINT: АТ х,с+2;"5" 

IF b=6 THEN СО TO 2200 


IF f-1 THEN LET 1-1%8: NEXT h: 
RETURN 

INPUT "m PER INIZIARE";c$ 

IF c$="m" THEN PAPER 0: CLS : 
LET Е-1: NEXT h: GO ТО 50 
NEXT h: GO TO 38 
REM continenti 
LET cont=0 

FOR v=1 TO 9 

LET da-j(v) 

ТЕ g(p,2)«»5t(da,2) 
GO TO 3062 

NEXT v 

LET cont=cont+5 

IF mus«»0 THEN RETURN 
FOR у-10 ТО 13 
LET da-j(v) 

ТЕ q (ри?) <> (аа, 2) 
со то 3087 

МЕХТ у 

LET cont=cont+2 

IF mus<>0 THEN RETURN 
FOR у-14 TO 19 

LET da-j(v) 

IF а(р,2)<>%(4а,2) THEN 
GOATOT3 2 


THEN 


THEN 
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3105 
3110 
3:552 
31:15 
3120 
3125 


3130 
3135 
3137 
3140 
3145 
3150 


3155 
3160 
3162 
3165 
3170 
3175 


3180 
3185 
3190 
4000 
4005 
4007 
4010 
4020 
4030 
4040 
4050 
5000 


5003 
5005 


5010 
5020 
5022 


5023 
5024 
5025 


5026 
5027 
5030 
5040 
5050 
5060 
5070 


5075 
5090 


5100. 
5110 
5120 
5130 


МЕХТ у 

LET cont=cont+3 

IF mus<>0 THEN RETURN 

FOR у-20 TO 26 

LET da-j(v) 

IF а(р,2) <>+ (да ,2) 
со то 3137 

NEXT у 

LET cont=cont+5 
ТЕ mus<>0 THEN RETURN 

FOR у-27 TO 30 

LET da-j(v) 

ТЕ g (gr; 2) <>t (da, 2) 
GO TO 3162 

NEXT v 

LET cont=cont+2 

IF mus<>0 THEN RETURN 

FOR v=31 TO 42 
LET da=j(v) 

IF а(р,2) <> + (аа; 2) 
со то 3190 

NEXT у 

LET сопЕ<сопЕ+7 

RETURN 

INPUT "SPOSTO ПА ";а5 

ТЕ a$="" THEN RETURN 

LET spos=1 

GO SUB 225 

INPUT CDA Teds 

GO SUB 237 

GO SUB 350 

RETURN 

IF carta-44 THEN PRINT %0;АТ 0, 
12 "МЕЗСОГО БЕ CARTE": РОВУ: =1 

ТО 50: BEEP .005/1% NEXT i: 

GO SUB 5500 
FOB 1=№ То: 50% 
МЕХТ 1 

PRINT ЖОЗАТ 075027" 
" 


THEN 


THEN 


THEN 


ВЕЕР .01,1: 


LET car-INT (RND*44)+1 

ТЕ Е (саг, 1) + 0 THEN СО ТО 
ТЕ Е(саг,1)=] THEN PRINT 
АТ 0,1;"CANNONE" 
ЧЕ Е(саг, !) «2 THEN 
АТ 0,1; "ЕАКТЕ" 

ТЕ t(car,1)=3 THEN 
АТО, CAVALIERE" 
ТЕ + (саг, 1!) =4 THEN PRINT 
Ат 0, PTOHEY": CGO: т055027 
PRINT %0;АТ 0,17;n$(car,1 
BEEP 3,30 

LET carta=carta+1 

FOR і-4 TO 8 

IF g(p,i)-5 THEN GO TO 5070 
NEXT i 

LET g(p,i)=t(car,l): 


5010 
#0; 


PRINT #0; 
PRINT #0; 
#0; 


то2) 


LET g(p,i+5 


) =CaL 
LET + (саг, 1) =0 
ҺЕТ Ба-0: LET Еа-0: ІЕТ су-0: 


ҺЕТ 1011у-0 
FOR і-4 TO 8 
IF 9(р,1)=1 THEN LET Ба-Ьа+1 
IF g(p,i)-2 THEN LET Ға=Ға+1 
IF g(p,i)-23 THEN LET су-су+1 


5140 


5150 
5160 


5170 
5180 
5190 


5200 


5210 


5215 
5220 
5230 
5240 


5250 


5260 
5270 
5280 
5290 
5300 
5310 
5315 
5320 


5330 
5340 
5350 
5360 
5370 
5375 
5380 
5400 
5403 
5405 
5410 


5420 
5430 


5440 
5450 
5460 


5470 
5480 
5500 
5510 
5520 
5530 
5540 
5550 
5552 
5553 
5555 
5560 


IF g(p,i)-4 THEN LET jolly-joll 
үз 


NEXT 1 
ТЕ ba=3 THEN LET tris-4:- 
GO TO 5220 

ТЕ fa-3 THEN LET tris-6: 
со TO 5220 

IF cv-3 THEN LET tris-8: 
GO TO 5220 


IF ba>=1 AND Ға>-! AND cv»-] 
THEN LET tris-10: GO TO 5290 
ТЕ jolly>=1 AND ((ba>=1 AND Ға 
>=1) OR (Ға>=1 AND су>-1) OR (су 
>=1 AND ba>=1)) THEN LET tris-] 
2: СО то 5290 

ІЕ 1011у>-1 AND (Ба-2 ОВ fa=2 
ОК cv-2) THEN LET tris-10: 

GO TO 5370 

GO TO" 5555 

LET tog-(tris-2)/2 

FOR i-4 TO 8 

IF g(p,i)<>tog THEN GO TO 527 

0 


ТЕ t(g(p,i*5),2)-g(p,2) THEN 
LET tris=tris+2 

LET а(р,і)-5 

NEXT i 

RETURN 

FOR 1-1 TO 4 

FOR i-4 TO 8 

IF а(р,1) <>) THEN СО TO 5340 
IF а(р,і)-4 THEN СО TO 5330 
ТЕ t(g(p,i*5),2)-g(p,2) THEN 
LET tris=tris+2 

LET g(p,i)=5: СО TO 5350 

NEXT i 

NEXT j 

RETURN 

FOR 1-2 то 8 

LET ху-4(р,1) 

FOR j=i+1 TO 8 
IF g(p,j)-xy THEN GO TO 5410 
NEXT j 

NEXT i 

ТЕ t(g(p,i+5),2)=g(p,2) 
LET tris=tris+2 

LET g(p,i)=5 

ТЕ Е (а (p,j+5) ,2) -а(р, 2) 
LET tris=tris+2 

LET g(p,j)=5 

FOR 1=4 TO 8 

ТЕ g(p,i)=4 THEN LET g(p,i)=5: 
RETURN 

NEXT i 

RETURN 

LET carta=0: LET rip-! 

FOR 151 ТО 42 

LET t(i,l)=rip. 

LET гір-гір-1 

ТЕ rip-4 THEN LET кір-1 

NEXT i 

LET 5(43,1) =4: LET +(44 1) =4 
RETURN 

INPUT "v PER VEDERE LE CARTE";v$ 
IF у5<>"у" THEN RETURN 


THEN 


THEN 


5565 
5570 
5575 
5577 
5580 
5585 
5590 
5595 
5597 
5600 
5610 
6000 


6010 
6020 


6030 
6040 


6050 
6060 
6070 
6080 
6090 
6100 


6110 
6500 


6550 


6600 


6700 


6710 
6720 
7000 
7010 
7020 
7030 
7040 
7050 


7060 


LET rs0 

FOR і-0 TO 4 

LET c-i*8 : 

IF c>30 THEN LET с-0: LET rz] 
IF g(p,i*4)-1 THEN PRINT 40; 

AT r,c;"CAN ";n$(g(p,i+9 


IF g(p,i*4)-2 THEN PRINT #0; 
AT r,c;"FAN ";n$(g(p,i*9)) 

IF g(p,i+4)=3 THEN PRINT #0; 
АТ r,c;"CAV ";п5(4(р,із9)) 

ТЕ 4(р,і%4)-4 THEN PRINT #0; 
АТ кс: TOLLYO 

NEXT 1 

PAUSE 0 

RETURN 

FOR 1=1 ТО 42 

ІЕ u=j(i) ТНЕМ СО ТО 6030 
МЕХТ 1 


LET mus-i 

IF mus>=1 AND mus<=9 THEN 

GO SUB 3040 

IF mus>=10 AND mus<=13 THEN 

GO SUB 3065 

IF mus>=14 AND mus<=19 THEN 

GO SUB 3090 

IF mus>=20 AND mus<=26 THEN 

GO SUB 3115 

IF mus>=27 AND mus<=30 THEN 

GO SUB 3140 

IF mus>=31 AND mus<=42 THEN 

GO SUB 3165 

LET mus=0 

RETURN 
оата "00; 15,95, 18128128530, 271 
5,30,.15,32,.75,25,0,0,0,0,0,0,0 
0 

, 
DATA .12,19,.12,16,.25,12,.25,16 
‚.25,19,.5,24,.12,28,.12,26,.25, 
24,.25,16,.25,18,.5,19,0,0 
РАТА 0,0,3,3,3,3,0,0, 248, 248,255 
1255,255,255,252,252,0,0,0,255,2 
55,128,0,0,63,96,204,158,158,204 
196,63,255,0,102,255,255,102,0,2 
55,252,6,51,121,121,51,6,252,0,1 
29,153,153,66,60,60,60,0,32,48,2 
4 12 6 За 
БАТА 0,0,153,153,195,60,60,60,24 
‚36,90,90,66,60,60,60,24,48,240, 
224,64,32,32,16,8,12,14,15,14,12 
‚8,16 
РАТА 24,126,255,255,255,255,126, 
24 
DATA 255,254,252,248,240,224,192 
,128,255,127,63,31,15,7,3,1 
РОВ 1-1 ТО 42 
ТЕ k-j(i) THEN СО TO 7030 
NEXT 1 
ТЕ і<-9 THEN LET о<1: ТЕТ t=19 
ТЕ і>-10 AND 1<=13 THEN LET 0-2 
6: LET #=32 
IF i>=14 AND 1<=19 THEN LET 0=3 
3: БЕТ t=45 
IF i>=20 AND i<=26 THEN LET 0=7 
5: LET Е=94 
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7070 
7080 


7100 
7110 


7 120 
7130 


70:35 


7140 
9010 


9011 
9012 
9013 
9015 


9016 
9017 


9018 
9019 
9020 
9021 
9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 


9032 


ТЕ і>-27 AND i<=30 THEN LET o-2 
0: ЕТ Е=25 

ТЕ 1>=31 THEN LET о-46: LET 4-7 
4 

FOR q-o TO t 

IF (а5+95) -25 (а4,1 TO 4) OR (а$+а 
5)-25(а,! TO 4) THEN RETURN 
NEXT q 

PRINT #0;АТ 0,0;"TERRITORI NON С 
ONFINANTI": BEEP 3,40 
LET а-0 

RETURN 

PAPER 5: FOR і-0 TO 1: 
ATI „Оре ns 


FOR i-2 TO 6: 

"et NEXT I 

PRENIGAT 7,057 "AT 8,0;" 
"SAT 9,0;" " 

PRINT AT 10,1;" LATEIN UN 


PRINT 
NEXT i 


PRINT Amos s" 


INK 4: PAPER 0 

INVERSE 1: PRINT AT 12,7;"A" 
INVERSE 0: PRINT AT 16,0;"A"; 

АТ 17, 1; AW. AT 18,3; "70"2À40 19,3; 
"D " 


PRINT AT 18,6;"E";AT 19,6; "Е" 
PRINT AT 17,7;"B";AT 21,5;"B" 
PAPER 4 ES oy 
PRINT AT 12,5;" ";AT 13,2;" 

" 
FOR і-14 ТО 15: PRINT AT i,0;" 

"; NEXT i 

PRINT AT 16,1;" "SAT 17,2; 
" " 
FOR i-18 TO 20: PRINT AT i,4;" 
": NEXT i: PRINT AT 21,4;" " 
INK 5: PAPER O 


PRINT OT 9/10; *ES AT КН; 
ATRIA ТОТО ПЧЕ 75,9: "p" 


PRINT AT 7,8;"B";AT 8,7;"B";AT 9 
,6;"B" ЭР: UTR 
INVERSE 1: PRINT AT 10,4;"C"; 

AT 11,4;"D" E 
INVERSE 0: PRINT AT 10,0;"A"; 

ATH, ТАРАШ 12,2; "A" 


PAPER 6 

PRINT AT 12,10;"  ";A7 13,10;" 
"SAT 14,9;" "jAT 15 

9s " 

PRINT AT 16,10;" “244217711 

po "iP 18, TI^ ";АТ 19,1 

1;" "AT 20,11;" ":AT 21,1 

фен " 
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9033 


9035 
9036 


9037 


9038 
9039 
9040 
9041 
9042 


9043 


9044 


9045 


9046 
9047 


9048 


9049 
9050 
9051 
9052 
9053 


9054 
9055 


9056 
9057 
9058 
9059 


9060 
9061 


9062 
9063 


9064 


PRINT АТ ПВО ЛИ" вов 
TORZO SPRINT АТА зо 
МЕХТ 1 
ТМК 6: PAPER 0 
PRINT AT Во, ЗАТ АТ 28,81 ТАЛ; 
АТ 21, 14; "В": АТ 17,10 "СПРАТ 18, 
10; "ри сау PA 
РКІНТ-АФ-Ұ2,13; "LAP. 15,16; "E"; 
AT T6,16;"E";AT T8,15;"E";AT.19, 
197 "Е"; АТ 21,17; "В“;АТ 21,16;"A" 


INVERSE 1: 
АТ 13,9;"F";AT 18,16; "В" 
INVERSE 0° 55. 
PAPER 1 
PRINT АТ 0,12;" 
ТАТ DM 
PRINT АТ 4,11;" 
AT 6,10;" " 
PRINT AT 2,16;" 
;AT 4,15;" " 
PRINT AT 5,15;" 
"s AT LL 
" АТ Өде" 
Шын " 
PRINT AT 10,10; INK 1; PAPER 0;" 
A(2868]B";AT 1Ъ,11; *£G2] " 
INK 1: PAPER 0 
PRINT AT 2,1T; 4A LAT 2, 13; "B"; 
AT 10216; ЕЛ КАТ AL, DE, | 
INVERSE 1: PRINT AT 8,10;"B"; 
АТ 5,10;"B";AT 0,11;"B";AT 2,15; 
"ВАТ 6, TATR ATI TS вт Am 4 
12; "А"; АТ 2,18; "C": AT cup 
АТ 10,17;"C";AT 17,17;"D" v 
PAPER 2: PRINT AT 5,20;"C";AT 6, 
20;"D": INVERSE 0: PRINT AT 8,20 
;"EUSAT 9,20;"E" 


PRINT AT 12,9;"E"; 
"АТ Шилу" " 
"АТ CES IU Ns 
TAT 375 " 
Ав, L5: 


"o AT 87 
"АТ 9, 


РАРЕВ 2 
FOR і-0 ТО 1: PRINT AT i,21;" 
": NEXT i 

FOR i-2 TO 4: PRINT AT i,20;" 

и: NEXT i 
FOR 1=5 TO 9: PRINT AT 1,21;" 

": NEXT i 

PRINT AT 10,19;" i 
PRINT AT 11,19;" "; 
Ат 2 9" X 
PRINT AT 13,17;" ІН; 
ATA lO M и 
PRINT АТ 15,23;" ";AT 16,23;" "> 
AT 17,23; INK 2; PAPER 0;"G" 
PRINT AT ЗОИ Am 8530954 
О ЗЕ verme m ТО, 
INK 0: PRINT AT 0,20;"E";AT 1,20 


P'E";AT 12,18;"B": INVERSE 0 

PAPER 3 2 

PRINT AT 14,31;" 
РАТЕ ЗО ч 

PRINT АТ 16,26; " 
"AT ДЕЛ, 265" " 

PRINT AT 18,28;" 

" 


"¿AT 15,27;" " 
";AT 16,30;" 
";AT 21,27;" 


FOR 1=19 TO 21: 
":- МЕХТ 1 


PRINT AT 1,26;" 


9065 
9066 


9070 


9071 


9080 


9081 


9082 


9083 
9090 


9091 


9092 


9093 


9094 


ІМК 3: PAPER 0: PRINT АТ 21,26;" 

А" 

INVERSE 1: PRINT АТ 14, DU ив": 

АТ 15,26;"B';AT 18, 31;"A": 
INVERSE 0° 

INK 2: PAPER 0: PRINT AT 15,22;" 

С";АТ 16,22;"D";AT 15,24;"E"; 

AT 16, 24;"E"; AT 13, 29;"В";АТ 5,2 
9; "p" 


PRINT AT 9,30;"A";AT 11,31; РА": 
АТ 14, 25;"B" 

PRINT ІМК 5; PAPER 4;AT кз" 
"ЗАТ 12,4; "к" 

PRINT ІМК 0; PAPER 4;АТ 13,0; "Ј 
АТЗ ЛК" 

PRINT ІМК 3; PAPER 0;AT 17,27; " 
ЗАТ. 28; "к"; INVERSE 1;АТ 18 
726;"7";АТ 18,27;"k" 

PRINT ІМК 0; PAPER 2;AT 14,17;" 
H";AT T4, 18;"I" 

INK 4: PLOT 40,80: DRAW 14,0: 


PLOT 40,81: DRAW 12,0 
INK 6: PLOT 127,8: DRAW 0,7: 
PLOT 144,27: DRAW 0,-20: PLOT I 
45,21: DRAW 0,-12: PLOT 71,48: 
DRAW 0,16: DRAW 8,15: PLOT mb 
0: DRAW 0,12 
INK 1: PLOT 112,160: 
PLOT 113,164: DRAW 0,11: PLOT 1 
14,168: DRAW 0,7 
PLOT 88,112: DRAW 15,0: PLOT 90, 


DRAW 0,15: 


113: DRAW 9,0: PLOT 119,128: 

DRAW 0,10: PLOT 118,128: DRAW 0 

‚6: PLOT 128,160: DRAW 16,0: 

PLOT 130,161: DRAW 12,0: PLOT 1 

32,162: DRAW 8,0 

PLOT 119,103: DRAW 0,-8: DRAW 8, 
. 0: PLOT 118,103: DRAW 0,-9: 

DRAW 8,0: PLOT 104,135: DRAW 0, 


9095 


9096 


9097 


9098 
9099 
9100 
9200 
9245 


9247 
9248 
9249 


-16: DRAW -20,0: PLOT 105,133: 
DRAW 0,-15: DRAW -18,0 

INK 3: PLOT 207,8: DRAW 0,16: 
PLOT 206,10: DRAW 0,12: PLOT 20 
5,12: DRAW 0,8: PLOT 239,56: 
DRAW 0,-17: DRAW 16,0: PLOT 238 
‚55: DRAW 0,-17: DRAW 17,0 
PLOT 216,56: DRAW 16,0: DRAW 0,- 
16: PLOT 218,57: DRAW 15,0: 

DRAW 0,-16 

INK 2: PLOT 255,120: DRAW -16,0: 
DRAW 0,-16: PLOT 255,121: 

DRAW -17,0: DRAW 0,-16: PLOT 23 
2,88: DRAW 6,0: PLOT 232,89: 
DRAW 4,0: PLOT 232,90: DRAW 250 


GO TO 1001 

RANDOMIZE USR 58400 

RETURN 

REM fine 

LET а-!: LET b-2: LET с-3: 
z4 

CLS : FOR i-7 ТО 0 STEP -1 
BORDER i 

ВЕЕР .05,i*5: BEEP .05,1%5-10: 
BEEP .05,i*5-10 


LET d 


9250 


9260 
9270 


9280 


9290 


929] 
9292 
3293 
9294 
9295 


INK a: PRINT АТ 1,3; "125с8) 
(6561) {3568} (3568) {568} 
(SG8) {3568} {2SG8}";AT 2,3;" 
1568) (868) {$68} {568} {$68} 
1868) {2568} (2568) {568} {$68} 
(2568)";АТ 3,3; "(2568 ) {$65} 
{3568} (3868) (5с8) {568} 
(568) {$68} (2868! "; АТ 4,3;" 
{568} {568} {2568} 1568) {568} 
(3868) (5568) {568} "SAT 5, 
3;"(2SG8](SG4) {$68} {SG8} 
{568} {SG8} {SG8} (35с8) 
{25С8}" 


ТМК Ь: РЕМТ АТ 8,12;45(р, ТО 7) 


INK c: PRINT АТ 10,11; "1(5с8) 
{568} (3868) {SG8}";AT 11,11;" 
{568} {SG8} {568} {568} {sc8}"; 
АТ 12,11; "135с8) {3568} (SG8)"; 
Ат зе севр (все) {SG8} 
{568} (SG8)";AT 14,11;"(SG8) 
{SG8} {SG8} {$68} (5с8)" 

INK d: PRINT АТ 16,6;"{SG8} 
{568} {SG8} 1568) 1865) {$68} 
(3568) {3568} "; АТ 17,6;"(2SG8) 
{2568} (568) 1568) (65) 15св) 


{568} {568} {SG8}";AT 18,6;" 
{568} (868) (568) {$68} 1565) 
{568} 1868) (568) (SG8)";AT 19 
6: {3568 (568) {568} {G5} 
{568} {568} {568} (SG8)";AT 20 
non {SG8} {SG8} {SG8} 

{SG8} {SG8} (35св)" 

LET а=а+1: LET b=b+1: LET с=с+1: 
LET а=а+1 

IF a>7 THEN LET a=l 

ТЕ” 5>7 THEN LET b=] 

IF EMI THEN LET c=1 

ФЕ 427 THEN LET а=! 

NEXT i 
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di Lucio Bragagnolo 


Il mio primo dizionario 
elettronico dei 
computer 


Come la pressione di pochi tasti 
può sostituire un dizionario 


ELETTRONICO 
DEI COMPUTER 


I software che presentiamo in questo 
numero nasce da un’idea non partico- 
larmente originale; chiunque veda per 
la prima volta questo programma sarà 
subito portato a pensare “Certo che 
non ci voleva molto...”. Fatto sta che, 
come per la gomma che non si attacca 
ai denti, “finalmente qualcuno ci ha 
pensato”: nel caso in questione le Edi- 
zioni Elettroniche Mondadori, realizzan- 
do questo prodotto rivolto prevalente: 
mente agli utenti di Spectrum e Com- 
modore 64 non esperti o che vogliano 
imparare a conoscere il mondo dell’in- 
formatica senza limitarsi a un esame su- 
perficiale. 
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In sostanza, il programma registrato sul- 
le due facce della cassetta (un lato per 
il Sinclair e l'altro per il Commodore) è 
null'altro che un data base, contenente, 
proprio come un dizionario, 117 voci di 
argomento informatico richiamabili a 
volontà e comprensive della maggior 
parte dei termini spesso causa di gravi 
difficoltà per chi si accosta al computer, 
ma non ne conosce la terminologia. 

La cassetta, priva di custodia (cosa che 
ci piace sempre poco), é inserita in un 
astuccio formato libro — 245x190x25 
— dalla gradevole estetica, decorato da 


microcircuiti in quantità che circondano 
la copertina vera e propria, disegnata 
dall'onnipresente (ma sempre bravo) 
Luca Novelli, autore anche di un simpa- 
tico mini-poster, presente all'interno 
della confezione, che illustra molto bene 
lo spirito didattico del programma. 
Altro gadget presente — questa volta 
decisamente piü utile — 6 un pieghevole 
contenente l'intero set di comandi BA- 
SIC Sinclair e Commodore, ognuno se- 
guito da una breve, ma esauriente spie- 
gazione. L'insieme appare nel comples- 
so ben realizzato, senza economie, e 
dobbiamo ammettere che il tutto ispira 
a priori un'impressione di efficienza e 
di sicurezza, crediamo confortante so- 
prattutto per il principiante. 

Veniamo ora al programma vero e pro- 
prio, ovviamente quello del lato Spec- 
trum della cassetta. Е sufficiente un so- 
lo caricamento, della lunghezza di diver- 
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si minuti, che ë stato eseguito рій volte 
senza che si verificassero problemi di 
alcun genere. Il programma e semplicis- 
simo, completamente esente da errori 
e, come dicono gli inglesi, *a prova di 
scemo”, ossia non interrompibile per er- 
rori che non siano il BREAK (si spera 
volontario), dopo il quale si puó comun- 
que benissimo proseguire con CONTI- 
NUE o addirittura con RUN. Il diziona- 
rio e stato diviso in 13 pagine, compren- 
denti 9 voci ciascuna; per gli sposta- 
menti da una voce e da una pagina al- 
ГаШта si usano i tasti del cursore (va 
ricordato a questo punto che sullo Spec- 
trum + il programma si rifiuterà ostina- 
tamete di accettare i tasti cursore sepa- 
rati, richiedendo i soliti 5-6-7-8) piü il 
tasto 1,.usato per selezionare le singole 
voci. Il sistema, lo abbiamo già detto, 2 
a prova di errore ed e abbastanza fun- 
zionale, anche se — piccolo difetto — 
dopo qualunque consultazione il com- 
puter ripresenta sempre la pagina 1, 
predisposta per richiamare la prima vo- 
ce. 

Selezionando una voce particolare, ap- 
pare una videata piü o meno ricca, che 
riporta la definizione corrispondente, 
mentre a fondo schermo appaiono uno 
o piü rimandi, tramite i quali si puó ac- 
cedere ad altre voci inerenti all'argo- 
mento senza dover passare dal menu 


cru 


iniziale. Utilizzando il рій possibile i ri- 
mandi si finisce inevitabilmente in qual- 
che circolo chiuso; sarebbe stato bello 
poter vagare a proprio piacimento per 
il dizionario, ma non si puó sempre ave- 
re tutto. 

Le varie voci sono in generale piuttosto 
sintetiche, ma chiare e sufficientemente 
esplicative. Segno inconfondibile, par- 
lando di Spectrum, della cura con cui é 
stato redatto il programma e l'assenza 
di errori nelle definizioni (non le abbia- 
mo comunque viste tutte: accoglieremo 
senza problemi eventuali smentite). Bi- 
sogna peró precisare che, differente- 
mente da ció che qualcuno avrà pensa- 
to, nel computer non sono memorizzate 
117 differenti definizioni: queste sono 
in numero decisamente minore, essen- 
do alcune voci nient'altro che citazioni 
presenti in una particolare definizione. 
Per esempio, puó darsi che cercando 
"Programmazione strutturata" vi venga 
riproposta la stessa definizione di “Pa- 
scal", con la stringa "programmazione 
strutturata" lampeggiante. Non é una 
truffa, come (adesso) penseranno altri: 
si tratta semplicemente di un utile espe- 
diente atto a risparmiare memoria, evi- 
tando, per quanto possibile, di accumu- 
lare per differenti voci definizioni prati- 
camente uguali, che nulla toglie alla va- 
lidità del programma. 


(Септга4 Processing Uniti 


Un giudizio finale? Un buon programma 
per principianti, utile e usufruibile senza 
bisogno di possedere conoscenze parti- 
colari, in grado di rendere facilmente 
comprensibili, senza fatica e a chiun- 
que, i vocaboli di maggior uso nel “ріа- 
neta computer". Unico suo — non grave 
— difetto e la scarsa flessibilità, peraltro 
non facile da ottenere trattandosi di un 
dizionario. Sotto questo aspetto non bi- 
sogna dimenticare che il nucleo centrale 
del programma à in BASIC, per cui 
chiunque lo voglia potrà modificarlo, ar- 
ricchirlo, migliorarlo, aggiungere nuove 
definizioni, riscrivere quelle già esisten- 
ti, in definitiva personalizzare a proprio 
piacimento il dizionario, rendendolo an- 
cora piü utile e gratificante di quanto 
esso già non sia al momento dell'acqui- 
sto. 


Per ordinare 
i programmi 
utilizzare il 
coupon pubblicato 
a pag. 82 
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di Lucio Bragagnolo 


PaperBook - programmi 
per Sinclair Spectrum 


autori vari 
ed. J.soft 


PROGRAMMI 


PER zsiraclair- 


Spectrum 


Dopo i *15 giochi grafici per lo Spec- 
trum" viene ospitata sulle pagine di 
PRINT una nuova produzione J.soft per 
gli utenti Sinclair, anch'essa consistente 
in una raccolta di programmi; piü speci- 
ficatamente, si tratta della raccolta dei 
listati apparsi sui primi venti numeri di 
*Papersoft", mini (solo nel formato) rivi- 
sta dedicata agli home piü diffusi sul 
mercato, da Apple a Texas e da Com- 
modore a Sinclair, in attesa di allargarsi ` 
per raccogliere gli ultimi arrivati, come 
il QL e il pubblicizzatissimo, ma a quan- 
to sembra tutt'altro che trionfatore, al- 
meno per ora, standard MSX. Al libro, 
come sembra ormai consuetudine, vie- 
ne allegata la cassetta comprendente i 
49 programmi del libro, cosi da evitare 
errori e sudore, notoriamente affettuosi 
compagni della digitazione. Il libro ap- 
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pare diretto veramente a tutti, vista la 
grande quantità e varietà dei program- 
mi presenti. Non si pensi comunque a 
una godereccia abbuffata di giochi fini 
a sé stessi: questi ultimi certamente non 
mancano, ma, fortunatamente, sono 
рій che bilanciati da un nutrito gruppo 
di utility e programmi “бегі”. Il tutto 
sempre mantenendo lo spirito di Paper- 
soft, rivista rivolta soprattutto ai non 
esperti, ma piena di consigli e ‘trucchi 
anche per i più abili. I listati sono ottenu- 
ti con la consueta stampante a marghe- 
rita, in modo da assicurare la massima 
chiarezza e leggibilità; unica variante, 
rispetto alla rivista, l'inserimento delle 
spiegazioni necessarie per procedere al- 
la modifica delle istruzioni IN presenti 
in alcuni programmi, modifica necessa- 
ria se la versione dello Spectrum posse- 
duto dall'utente à diversa da quella del- 
lo ZX con cui il programma 6 stato scrit- 
to (ë facilissimo accorgersene, data l'as- 
soluta ingovernabilità dei giochi che ca- 
ratterizza il verificarsi dell'inconvenien- 
te). 

A parte questo, abbiamo avuto modo 
di collaudare l'intera cassetta, consta- 
tando il funzionaimento di tutti i pro- 
grammi. E necessario peró avere l'ac- 
cortezza di-resettare il computer - рег 
esempio dando RUN USR 0 - prima di 
caricare ogni programma, in modo tale 
che nella memoria dello Spectrum non 
rimanga niente di ciò che potrebbe pro- 
vocare malfunzionamenti come, ad 
esempio, un abbassamento della RAM- 
TOP per ospitare routine in linguaggio 
macchina o una regolazione degli attri- 
buti particolare, o altro ancora. 

I programmi presenti nel libro sono 
estremamente eterogenei: per quanto 
riguarda i giochi possiamo citare: 
“Guerre stellari”; “Asteroidi” — com- 
prensivo di linguaggio macchina e riu- 
scitissimo dal punto di vista grafico —; 
“Rose”, la spiritosa odissea di uno stal- 
liere alle prese con cavalli dalla...dige- 
stione facile; “Attacco alla Terra”, rea- 
lizzato in BASIC professionale e di gran- 
de effetto; il difficilissimo “Numeri in 


scala” o “Aeroporto”; sintetica, ma im- 
pegnativa simulazione di volo in cui 
avrete il vostro daffare per riuscire a 
non schiantarvi al suolo o mancare di 
chilometri la pista di atterraggio. Sem- 
pre parlando di giochi, non esistono solo 
gli arcade, ma anche i cosiddetti “classi- 
ci” o i giochi, sempre cosiddetti, intelli- 
genti; a questa schiera appartengono: 
“Fagioli”, altrimenti noto sotto il nome 
di “Awari”; “Solitario”, un’atipica ver- 
sione della dama cinese; “Caccia alle 
carte”, di cui lasciamo intuire il soggetto 
e “Codice nascosto”, versione coloratis- 
sima e graficamente attraente dell’uni- 
versalmente conosciuto Mastermind. 

E veniamo alle utility, o comunque ai 
programmi da usare anziché giocare. 
La qualità di questi ultimi non è sempre 
altissima, dato il generalmente scarso 
ricorso al linguaggio macchina nei pro- 
grammi pubblicati su Papersoft, ma si 
tratta in ogni caso di listati molto utili 
per chi si trova agli inizi e, perché no?, 
a volte estremamente funzionali anche 
in assoluto. In PaperBook potrete tro- 
vare, tra l’altro: “Cancella”, capace di 
cancellare in un colpo solo blocchi interi 
di linee di programma (ovvero l’equiva- 
lente del DLINE del QL), “Testo”, word 
processor ridotto all’osso, ma funziona- 
le; “Musica”, capace di scrivere e me- 
morizzare brevi composizioni musicali; 
“Lettore L/M Z80”, disassemblatore di 


programmi scritti in linguaggio macchi- 


na; “Porta routine” e “Carica DATA”, 
vere, e proprie utility “serie”; “Clock”, 
un orologio digitale, e altre. Non manca 
neppure un programma di puro intrat- 


.tenimento (“Display”), tutto da guarda- 


re senza toccare, alla scoperta delle ca- 
pacità grafiche in alta risoluzione dello 
Spectrum. 

Insomma, dentro PaperBook potrete 
trovare di tutto, dall’utile al dilettevole, 
subito a portata di mano (grazie alla 
cassetta): e in considerazione di que- 
st'ultimo dettaglio forse vale la pena di 
consigliare PaperBook anche a chi non 
è mai mancato all'appuntamento in edi- 
cola con Papersoft. 


Learning is Fun! - 40 
Educational Games for 
the Spectrum (Imparare 
e divertente! — 40 
giochi educativi per lo 
Spectrum) 


di Vince Apps 
ed. Granada Publishing 


La didattica e, piü in generale, il compu- 
ter visto come maestro, compagno o piü 
semplicemente strumento di apprendi- 
mento 6 un argomento che nel mondo 
dell'informatica non à mai passato di 
moda; peccato che a tanto interesse 
corrispondano ben pochi fatti concreti, 
specie da parte delle autorità (come, ad 
esempio, quelle scolastiche), che piü di 
tutte dovrebbero essere sensibili all'ar- 
gomento. In questo senso si puó vedere 
come le iniziative relative alla didattica 
siano per lo piü legate all'entusiasmo di 
singoli insegnanti dalla volontà di ferro 
— perennemente in lotta con sovvenzio- 
ni mancanti e presidi arretrati — e co- 
munque completamente slegate tra di 
loro. 

Nel suo piccolo, SUPERSINC cerca di 
dare il suo contributo, ad esempio con 
la serie di IF... THEN dedicata al Logo, 
che ha riscosso un notevole interesse: 
ed ein questo senso che vi segnaliamo 
“40 Educational Games for the Spec- 
trum", grande serbatoio di programmi 
piccoli e grandi, originali e conosciuti, 
semplici e difficili, a disposizione di 
quanti, padri di famiglia, docenti o sem- 
plici appassionati che siano, sono alla 
ricerca di programmi didattici. Il libro 
in questione e stato accuratamente pro- 
gettato per risultare omogeneo e di faci- 
le utilizzo: tutti i programmi risiedono 
senza problemi anche in uno Spectrum 
16K (le espansioni costano...), cosi che 
— parole dell'autore — gli utenti piü gio- 
vani, notoriamente impazienti, possano 
vedere dopo poco tempo il risultato dei 
loro sforzi. I listati sono il più possibile 
modulari, e molte routine vengono usa- 
te piü volte in diversi programmi, cosi 
che adattamenti e miglioramenti non ri- 
sultano difficili. Gli unici problemi sono 
costituiti dai giochi, che richiedono, per 
avere un senso, la traduzione — vedere 
"English/French", tipico programma 
per l'insegnamento delle lingue stranie- 
re — o (ë il caso, per esempio di *Coun- 
ties") la sostituzione di una cartina bri- 
tannica con una italiana nei programmi 
dedicati alla geografia. 

Gli argomenti sono i soliti e, riteniamo, 
adatti per una gamma di età avente gli 
estremi in prima elementare e terza me- 
dia, con una particolare raccomanda- 
zione per i ragazzi del secondo ciclo ele- 
mentare. Andiamo dalle quattro opera- 
zioni, in tutte le salse, al calcolo delle 
aree, dai piü svariati quiz storico- 
geografico-scientifici alla rappresenta- 


Learning is Fun! 
40 
EDUCATIONAL 
GAMES FOR 
THE SPECTRUM 


VINCE APPS 


zione delle costellazioni, a programmi 
che trasformano lo Spectrum in tastiera 
musicale (*Organ", “History Quiz”, 
“Multiplication and Division”, eccete- 
ra). Non mancano alcuni classici come 
“Village”, una tipica versione di “Ham- 
murabi”, il progenitore di tutti i giochi 
di simulazione, in cui ci si cala nei panni 
di un re/primo ministro/dittatore/ 
amministratore delegato incaricato di 
rendere il proprio regno piü prospero e 
popoloso che sia possibile, lottando con- 
tro carestie, ribellioni, maltempo e/o 
crolli in Borsa, o l'ormai mitico “Нап- 
gman”, in cui un omino si avvicina sem- 
pre di più verso l'impiccagione man ma- 
no che vengono commessi errori nel 
tentativo di indovinare una parola. So- 
no anche presenti molti giochi basati 
sulle parole, come “Word Mix”, “Mis- 
sing Letter”, l’originale “Proverbs” o il 
notevolissimo “Anagrams”, di cui non 
ce sicuramente bisogno di illustrare il 
significato. Da segnalare ancora il sim- 
patico gioco “Fizz/Buzz”, “Bar Chart” 
per la rappresentazione di istogrammi 
e “Submarine”, gioco di caccia subac- 
quea semplice, ma divertente e (ci man- 
cherebbe) istruttivo. 

Oltre a quanto detto riguardo ai singoli 
listati, va aggiunto che il meccanismo di 
funzionamento di tutti i giochi prevede 
un decremento del punteggio legato al 
ritardo con cui viene inserita la risposta, 
per stimolare al massimo i ragazzi. 1 
programmi non fanno assolutamente 


uso di linguaggio macchina, e ciò è mol- 
to positivo per quanti vogliano lavorarci 
sopra; il notevole ingrandimento dei li- 
stati li rende più che nitidi e perfetta- 
mente leggibili, nonostante siano stati 
evidentemente riprodotti con una Sei- 
kosha o una Alphacom. 

Un altro dettaglio di cui bisogna fare 
menzione è la qualità media dei pro- 
grammi: pur non essendoci eccezionali 
capolavori, sono tutti ben realizzati e 
(almeno in apparenza) piuttosto elegan- 
ti nel loro funzionamento; 1 programmi 
banali o troppo poveri non sono più di 
cinque o sei su 40, anch’essi comunque 
più che degni di figurare in questa rac- 
colta. Infine non possiamo fare a meno 
di notare la discreta originalità di am- 
bientazione di molti giochi, evitando di 
incappare nella grigia monotonia di cui 
purtroppo è cronicamente dotata la 
maggior parte dei programmi sul mer- 
cato. 

Nel concludere questa presentazione di 
“40 Educational Games”, ci rendiamo 
conto di rivolgerci a un pubblico un ро” 
diverso dal solito, forse meno numero- 
so, ma più selezionato e più attento, 
rispetto alla massa, agli utilizzi più “edu- 
cativi”, in tutti i sensi e per tutte le età, 
del calcolatore: ebbene, crediamo che, 
a dispetto dell'apparente semplicità di 
questo libro, esso possegga tutti gli ele- 
menti per venire apprezzato anche dai 
lettori рій esigenti a questo riguardo. 


I libri italiani 
vengono offerti 
con il 10% di 


sconto sul 
prezzo di copertina 


I libri possono 
essere ordinati 
utilizzando il 
coupon pubblicato 
a pag. 82 


SUPERSINCÓ 3/85 . 75 


Le notizie di ZX CLUB 


Anche i club attraversano momenti dif- 
ficili: е П caso，e се ne dispiace，del 
SINCLAIR CLUB BOLOGNA, associa- 
zione di utenti е di microcomputer tra 
le рій attive negli ultimi mesi. L'attività 
e la struttura stessa del club sono state 
oggetto di profondo dibattito fra i soci: 
la mancanza di una adeguata sede so- 
ciale, il gravoso impegno della segrete- 
ria per la redazione, stampa ed impagi- 
nazione del bollettino, la lievitazione dei 
costi, lo scarso interesse del mondo 
commerciale a supportare tramite la 
pubblicità un bollettino stampato solo 
in qualche centinaio di copie hanno de- 
terminato una situazione non piü soste- 
nibile da parte di chi, sinora, si era occu- 
pato di mantenere vitali le attività socia- 
li. In conseguenza di ció la segreteria ha 
deciso un ritorno alle origini: il SCB ces- 
sa di esistere come organizzazione di 
livello nazionale e si costituisce un grup- 
po locale di utenti di microcomputer in 
collaborazione con l'ARCI di Imola. Il 
materiale del club (riviste, stampati, li- 
bri...) viene trasferito presso la sede del- 
l'ARCI, dove sarà disponibile per i soci 
ogni lunedi dalle ore 17 alle 19 ed il 
primo lunedi di ogni mese dalle ore 21 
alle 23. I soci del SCB potranno mante- 
nere un contatto postale con la sede. 


L'indirizzo ë 


SINCLAIR CLUB 
c/o ARCI UISP 

via Tiro a Segno 
40026 IMOLA (BO) 


Tutti gli iscritti, che non sono piü tenuti 
a versare quote associative, riceveran- 
no comunque, tramite lettera, comuni- 
cazioni dal club per quanto concerne 
notizie di incontri o scambi. 


Sapevate che il SINCLAIR CLUB RO- 
MA-TALENTI ha deciso di acquistare 
libri e riviste dedicati ai computer in 
genere, e soprattutto allo Spectrum, da 
mettere poi a disposizione di tutti i soci? 
Chi e interessato puó aderire a tale ini- 
ziativa, versando lire 8000. Il club, inol- 
tre, realizza raccolte contenenti una se- 
lezione degli ultimi programmi usciti sul 
mercato, a disposizione dei soci dietro 
pagamento delle sole spese sostenute a 
tale scopo dal club. 

I lettori di SUPERSINC, interessati ad 
aderire al club o a ricevere maggiori 
informazioni, possono rivolgersi diretta- 
mente a: 


SINCLAIR CLUB ROMA-TALENTI 
c/o Massimo D'Ascenzo 

via F. D'Ovidio 109 

00137 ROMA 

Tel. 06/8280043 


Е sorto il WOODSTOCK SINCLUB 


SASSARI! Il club, che non ha alcun fine 
di lucro, intende costituire punto di rife- 
rimento per gli utenti Sinclair della re- 
gione, sinora priva di strutture di questo 
tipo. L'indirizzo del club 6: 


WOODSTOCK SINCLUB SASSARI 
via Carlo Felice 12 

07100 SASSARI 

Tel. 079/216278-291925 


I programmi di ZX CLUB 

Fra gli obiettivi del FIRENZE SINCLUB 
va annoverato l'impegno a non trascu- 
rare i bambini, pubblico esigente e desi- 
deroso di conoscere i possibili utilizzi 
"seri" delle macchine. E quindi giusto 
che il primo listato del club sia dedicato 
agli utenti più piccoli. Il mago Numerel- 
lo ё pronto ad intrattenere i piü piccini 
sulle quattro operazioni, parlando con 
loro e ricreando un’atmosfera di compli- 
cità e affetto che non sempre 8 dato 
ritrovare a scuola. 

Per una volta, quindi, i lettori рій grandi 
siano cortesi nei riguardi dei loro fratel- 
lini o figli e facciano loro dono di questo 
programma, capace di portare una nota 
lieta durante le ore di studio. 
L'indirizzo del FIRENZE SINCLUB г: 


FIRENZE SINCLUB 

via delle Cento Stelle 5/a-b 

50137 FIRENZE 

Tel. 055/608107/610251/611302 


Il mago Numerello ji ° 
Firenze Sinclub 1E pie А 6: ІМК 0 
versione per ZX Spectrum 16K/48K 20 GO SUB 2500 

1 REM NUMERELLO 50 LET e-0: LET 4-0: LET е1-0: 

ATEM LET 41-0: LET t-0 

10 LET 25-" 83 LET tl-0: LET п-0 

P 84 BORDER 1: PAPER 5 

12 POKE 23658,0 85 CLS : FOR п-1 TO 21: PRINT 26: 

T3 CES NEXT n 
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PRINT PAPER 6;AT 0,0;z$;z$;z9$ 

PRINT PAPER 6;AT 1,0;" SONO 
PRONTO A GIOCARE. s 

GO TO 95 

STOP mi ICES 

PRINT РАРЕВ 6;AT 0,0;25:25;25 


PRINT PAPER 6;AT 1,0;" NON HO 
CAPITO , RIPETI ү 
PRINT АТ 4,0;" SCEGLI CON COSA V 


UOI GIOCARE" 


PRINT АТ 6/1; 1 solo ADDIZ 
IONI" 

PRINT AT 8,1;" 2 solo SOTTR 

AZIONI" 

PRINT AT 10,1;" 3 solo MOLT 
IPLICAZIONI" 

PRINT AT 12,1;" 4 solo DIVI 

SIONI" 

PRINT AT 14,1;" 5 ADDIZIONI 
e SOTTRAZIONI" 

PRINT АТ 16,1;" 6 MOLTIPLIC 

AZIONI e DIVISIONI" 

PRINT AT 18,1;" 7 TUTTE le 

OPERAZIONI" 

PRINT АТ 20,1;" 8 PER FINIR 

E IL GIOCO" 

INPUT p 


ТЕ р<1 THEN GO TO 90 

IF p>8 THEN СО ТО 90 

IF p=8 AND t<>0 THEN GO TO 17 
00 

IF p=8 THEN GO TO 1800 


CLS 

PRINT PAPER 6; BRIGHT 1;АТ 10,0 

;" QUALE E' IL NUMERO PIU' GRAND 

Eu CON CUI VUOI GIOCARE ? 
" 

INPUT "Sono curioso ; dimmelo " 

pal 

, 

GO-TO 7220 


CLS : PRINT PAPER 6; FLASH 1; 

Ат Т0: Q Ор" Ehi! Non scherzar 

e...dimmi mM un numero t 

ra 1 е 999 ezio 

INPUT. "Allora 270271 

ТЕ 1<1 OR 1»-1000 THEN СО TO 21 

E 

LET a-INT 

1*RND+1) 

IF g+e=10 THEN GO TO 1500 

IF g+e=0 THEN GO TO 3000 

RESTORE 3050: FOR Е=1 TO p: 

READ linea 

NEXT f: GO TO linea 

CLS 

REM combinazione casuale di tutt 

e e 4 le operazioni 

LET s=INT (4*RND+1) 

GO TO (s*100+400) 

CLS 

REM combinazione casuale di 
addizione e sottrazione 

LET s=INT (2*RND+1) 

GO TO (5*100+400) 

CLES 


(1*RND+1): LET b=INT ( 


REM combinazione casuale di 
moltiplicazione e 
divisione. C 

LET s=INT (2*RND+1) 

GO TO (s*100+600) 

CLS 

REM routine di addizione 

LET n=t1+1 

PRINT АТ n,2;a;AT n,6;"4";AT n,8 

LDIATD,R25"-M 

INPUT c 

PRINT AT n,l4;c 

IF c=a+b THEN СО TO 1000 

GO SUB 1200 

GO TO 503 

CLS 

REM routine di sottrazione 

IF a»b THEN СО TO 615 

GO TO 620 

LET n=t1+1: GO TO 660 

LET c=a: LET a=b: LET b=c 

LET n=t1+1 

PRINT; AT п,2; а ат n,6;"-">AT.n,8 

БАТ, 0 

ТМРОТ с 

PRINT АТ п,14;с 

ТЕ C=a-b ТНЕМ GO ТО 1000 

GO SUB 1200 

GO TO 645 

CLS 

REM routine di 
moltiplicazione 

LET n=t1+1 

PRINT AT n,2;a;AT n,6;"x";AT n,8 

РАВИЯ 

ІМРОТ с 

PRINT АТ п,14;с 

ТЕ с=а*р ТНЕМ СО ТО 1000 

GO SUB 1200 

со то 702 

С15 

REM routine di divisione 

IF a»b THEN СО TO 805 

LET d-INT (b/a) 

LET b=d*a 

LET c=a: LET a=b: LET Ь-с: 

GO TO 819 

LET d=INT (a/b) 

LET а-ьха 

LET n=t1+1 

PRINT АТР атат n,62;" :" AT n,8 

БАТ ТУЕ 

ТМРОТ с à 

PRINT АТ п,!42с 

ТЕ c-a/b THEN GO TO 1000 

со SUB 1200 

со то 819 

REM routine di risposta 
esatta 

LET 9=9+1 

PRINT FLASH 1; PAPER 6;AT n;21; 

"ESATTO 111 

LET tl=n+1 

GO SUB 2700 

GO TO 225 
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1745 


1755 
1760 


REM routine di risposta 
errata 
LET tl=n+1 
LET е=е+1 
PRINT FLASH 1; PAPER 2; INK 7; 
AT п,2 15s NOU SANTO, 


25; ("RIPETI" AND e+g<>10 

) 

GO SUB 2800 

REM verifica stampa 
punteggio 

IF 9+е<>10 THEN RETURN 

REM routine di stampa 
punteggio 

LET el=el+e: 

0: LET 4-0: 


LET 41-4144: LET e- 
LET t=gl+el: LET n=0 


CLS 

PRINT AT 0,0;z$;" Benissimo, 
Бол," 

ТЕ Е<>10 THEN: F со то 77556 
LET r$="il primo": GO TO 1563 
ТЕ?” Е<>20 "THEN: СО “pO! 1558 
LET т5-"11 сесопдо": СО ТО 1563 
ТЕ t«»30 THEN СО TO 1560 

LET кб "11 terzo": GO TO 1563 

ТЕ &<>40 ТНЕМ СО ТО 1562 

ТЕТ г5-"11 quarto": GO TO 1563 
IF t>=50 THEN LET r$="l'ultimo" 


И» үү 


PRINT "hai terminato ";r$;" gioc 
ох" 

PRINT “Боро "Е." езегст2?1 hai r 
isposto"'"esattamente a ";gl;" d 
omande e ne "'"hai sbagliate ";e 
der 


IF 七 >=50 THEN СО TO 1699 
PRINT '"Vuoi ancora giocare con 
me?": INPUT f$ 
TERES<S>U Si AND'£5«»"no" 
THEN PRINT "Forza...rispondimi 
вто по": со TO 7568 
GO TO (83 AND Е5-"в1") + (1700 
AND Е$="по") 
GO TO 1569 
PAUSE 600 : 
REM routine di stop 
CLS 
IF 55="о" 
PRINT 
"Сага 
со то 
PRINT 


ТНЕМ С0 ТО 1720 
РАРЕК 6;АТ 7,0;25;АТ 8,0; 
"no pw S 
1730 
PAPER 6;AT 
"Caro LOO Sip Ub UO eA 
PRINT PAPER 6;AT 9,0;"mi sono m 
olto divertito a gioca-re con te 
e spero che si sia di-ventati a 
mici. РАТАТ УО 
;"Quando vorrai ancora giocare 
chiamami, ne saro' molto felic 

e." 

PRINT PAPER 6;AT 14,0;25;25;25; 
АТ 1613 CITAO" 
PAUSE 600 
STOP 


Jy 09 2S АТ 8,0 
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1800 
1801 
1810 
1820 


1830 
1840 


1850 


1870 
1880 
2000 
2001 
2002 
2005 
2010 
2015 
2020 
2025 
2030 


2040 


2050 
2500 
2504 
2505 


2515 


2530 
2531 


2532 
2535 
2540 
2545 
2546 
2547 
2550 
2551 
2552 


2558 
2559 


2562 


2563 
2564 


2565 
2566 


2567 


REM stop iniziale 
CLS 
IF 55-"о" THEN СО TO 1840 
РЕТНТЗАТ 8,0:28:АТ 9,0: "Сата "еп 
SEMI 
GO TO 1850 
PRINT АТ 8, 0;25:АТ 9, 0: "Сако "п 
Sie n 
PRINT AT 10,0; "torno a dormire, 
ma quando vuoi giocare ancora co 
nome ситашаша "ЗАТ, 0s 

СТАО " 
PAUSE 600 
STOP 
REM telefono 
съб: BORDER. 1: 
РОКЕ 23692,255 
FOR n=1 TO 4 
FOR п-! TO 40 
ВЕЕР .02,25 
FOR t=1 TO 1: 
NEXT m 
PAUSE 80 
NEXT n 
RETURN 
REM K k k k k k k k k k k k k k k k k k k kk kk 
BORDER 1: PAPER 6: CLS 
PRINT AT 0,0;25;" 
МТО 2 " 
PRINT АТ 4,0; "То sono un program 
ma del tuo SPECTRUM"'"T] mio 
nome e' NUMERELLO, chi mi"'"ha s 
vegliato? Un bambino o una"'"bam 
bina?" 
INPUT s$ 
LET n=LEN 55: 
GO TO 2530 
LET 55-55(п): 


PAPER 6 


NEXT t 


PRO 


IF n-0 THEN 


IF 55<>"а" AND S 


$«»"o" THEN СО TO 2530 

PRINT '"Bene, bene...come ti chi 
ami?" 

INPUT пб: IF п5-"" THEN СО TO 2 
540 

PRINT 5"Clao, "Чп б u inguanti а 
nni hai?" 

INPUT w$: IF w$="" THEN GO TO 2 
546 

LET t$=w$(1) 


LET sic=CODE t$ 

IF sic=48 OR (sic=49 AND VAL w$> 
19) THEN GO TO 2559 

IF sic>48 AND sic<58 THEN 

GO TO 2564 

GO TO 2546 

IF VAL w$<=0 OR VAL w$>=100 

THEN GO TO 2566 

PRINT '"Vedo che ti piace scherz 
are... dimmi quanti anni hai." 
GO TO 2546 


PRINT '"Io sono piu' giovane di 
te" 

GO то 2574 

PRINT "Ehi! non scherzare...dimm 
i la tua vera eta'" 

GO TO 2546 


2574 


2578 
2579 
2580 
2585 


2590 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2800 
2810 
2820 
2830 
2840 
2850 
3000 


3010 
3050 


PRINT ""бепет, "пос", a Vuo ат 
осаге соп пе е соп...1 numeri? 
" 

INPUT К$ 

IF k$-"no" THEN СО ТО 1800 

IF k$="si" THEN RETURN 

PRINT '"Molto bene, ho capito, m 


a rispondi semplicemente s 
то по! 
со то 2578 


REM din-don 
FOR һ-1 TO 5 
BEEP .02,23 
PAUSE 5 

BEEP .3,19 
PAUSE 10 
NEXT h 
RETURN 

REM sirena 
FOR h=1 TO 4 
ВЕЕР 5,2 
ВЕЕР .5,7 
МЕХТ Һ 
RETURN SI 
RESTORE 3050: FOR f=1 TO p: GRUPPO 


READ linea р EDITORIALE 
NEXT f: GO TO 1іпеа-1 JACKSON 


DATA 500,600,700,800,400,450,300 
LA BIBLIOTECA CHE FA TESTO. 


LA RIVISTA DI ELABORAZIONE DATI E TELEMATICA 


А 2 E = 
;Елпгефсок 


núóvó número 


Z ‘H 
2% 4 


) 
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Il Jacksoniano scegli 


tra 14 


XS 


Jackson: una grande, esauriente scelta di periodici per saper tutto ciò 5,27 
che è indispensabile su elettronica, informatica e personal computer. 
Videogiochi, la guida indiscussa al fantastico mondo dei videogames; 
Home Computer, la rivista del computer in casa; 

Personal Software, la rivista dedicata al software dei personal 
computer; 

Bit, la prima rivista europea di personal computer, software, accessori, la 
più prestigiosa e più diffusa in Italia; 

Informatica Oggi, il punto di riferimento obbligato per chi si occupa di 
sistemi EDP e di Office Automation; 

PC Magazine, la prima rivista italiana dei sistemi MS-DOS, Personal 
Computer IBM e compatibili; 


танығың 


ТҮ 
үүн. WW Y 


шиш 


Е С Personal O, la rivista indipendente per gli utenti di PC Olivetti; 
Compuscuola, la rivista di informatica nella didattica, рег la scuola 
italiana; 

Telecomunicazioni Oggi, la rivista di telecomunicazioni e telematica; 
Automazione Oggi, il mensile della nuova automazione industriale; 
Elettronica Oggi, іс più autorevole rivista di elettronica professionale, 
strumentazione e componenti; 

L'Elettronica, il quindicinale di politica industriale, componentistica, 
informatica e telecomunicazioni; 

Elektor, la più diffusa rivista europea di applicazioni e progettazione 
elettronica. 

Strumenti musicali, il periodico di strumenti musicali e computer-music. 


Per sottoscrivere abbonamenti compilare il tagliando e inviare in busta chiusa a: 


Gruppo Editoriale Jackson S.r.l. - Via Rosellini, 12 - 20124 Milano, allegando assegno o fotocopia della ricevuta di 
versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO. 


О 9, desidero sottoscrivere un abbonamento a: 


О Videogiochi (Il n.) L 30.000 anzichè L 38.500 

О Home Computer (11 n.) L 31.500 onzichë |. 38.500 

П Personal Software (11 n.) L 34.000 anzichè L 44.000 
O Bit (11 n.) L 43.000 anzichè L 55.000 

О Informatica Oggi (11 n.) L 31.000 anziche L 38.500 
ОРС Magazine (10 n.) L 40.000 anzichè L 50.000 

О Personal О (10 n.) L 35.000 anzichè |. 40.000 


E c'è un super-risparmio a chi si abbona a due o più riviste. 


П Compuscuola (9 n.) L 15.000 anzichè L 18.000 

П Telecomunicazioni Oggi (10 n.) L 28.000 anzichè L 35.000 
О Automazione Oggi (11 n.) L 30.500 anzichè |. 38.500 

П Elettronica Oggi (11 n.) L 36.000 anzichè L 44.000 

О L'Elettronica (22 n.) L 44.000 anzichè L 55.000 

П Elektor (12 n.) L 29.000 anzichè L 36.000 

П Strumenti Musicali (10 n.) L 24.000 anzichè L 30.000 


Attenzione per abbonamento all'estero le tariffe devono essere 
aumentate del 50% 


Tutti coloro che sottoscrivono l'abbonamento a due о più riviste godono di un prezzo ulteriormente agevolato, come appare nella seguente tabellina. 


Esempio: Bit+Informatica Oggi L 43.000+31.000=74.000 meno L 2.000=L 72.000 


Abbonamento 
а 2 riviste L 2.000 in meno sulla somma dei 2 prezzi d'abbonamento 


а 8 riviste L 20.000 in meno sulla somma degli 8 prezzi d'abbonamento 
a 9 riviste L. 25.000 in meno sulla somma dei 9 prezzi d'abbonamento 


a 3 riviste L 4.000 in meno sulla somma dei 3 prezzi d'abbonamento 


a 10 riviste L 30.000 in meno sulla somma dei 10 prezzi d'abbonamento 


a 4 riviste L 7.000 in meno sulla somma dei 4 prezzi d'abbonamento 
a 5 riviste L 10.000 in meno sulla somma dei 5 prezzi d'abbonamento 
a 6 riviste L 13.000 in meno sulla somma dei 6 prezzi d'abbonamento 
a 7 riviste L 16.000 in meno sulla somma dei 7 prezzi d'abbonamento 


a 11 riviste L 35.000 in meno sulla somma degli 11 prezzi d'abbonamento 
a 12 riviste L 40.000 in meno sulla somma dei 12 prezzi d'abbonamento 
a 13 riviste L 44.500 in meno sulla somma dei 13 prezzi d'abbonamento 
a 14 riviste L 50.000 in meno sulla somma dei 14 prezzi d'abbonamento 


D Allego assegno n° della Banca 

D Ho effettuato versamento sul c/c postale n. 11666203 intestato a Jackson - Milano di cui 
allego fotocopia della ricevuta 

D Vaglia postale e allego fotocopia ricevuta 


GRUPPO 


N 

Cognome EDITORIALE 
Ая 

CAP — Cita JACKSON 

Via 


Vendo ZX80 nuovaROM nuovissimoa 
Г. 100.000; 2Х81 16 Kbyte RAM, а!- 
mentatore, libro ZX81 vari giochi, usa- 
to un solo mese causa militare. Vero 
affare. Saverio De Servi - Via Marconi, 
52 - 20020 Rescalda - Tel. 0331/579344 


Compro periferiche in buone condizio- 
ni ma che abbiano prezzi accessibili. 
Pietro Ricciardi - Via Torricola - 00178 
Roma 


Vendo ZX81 completo di cavi di con- 
nessione alla TV e al registratore, ali- 
mentatore 9 volts 0,7A. Tutto a L. 
90.000 trattabili. Telefonare ore pasti. 
Andrea Bruni - Via Marconi, 19 - 56025 
Pontedera (PI) - Tel. 55501 


Cambio software per Spectrum, sia ga- 
mes che utility. Cedo molti programmi 
in cambio di stampante Alphacom o 
Seikosha GP50. Scrivere o telefonare. 
Teresa Mele - Via Matteotti, 76 - 84036 
Sala Consilina (SA) - Tel. 0975/21041 


Vendo software per ZX81 a prezzi mo- 
dici. Richiedere listino. Grantisco ri- 
sposta a tutti. Giulio Anceschi - Via 
Salvator Rosa, 10 - 20035 Lissone (MI) - 
Tel. 481292 


Cambio, vendo programmi per Spec- 
trum 48 Kbyte (ne ho circa 160) a prez- 
zi bassissimi. Giancarlo Orrù - Via Lui- 
gi Capuana, 135 - 00137 Roma - Tel. 
06/824160 


Cambio software per Spectrum 16/48 
Kbyte. Inviatemi la vostra lista, io vi 
invierò la mia. Sono disposto anche alla 
vendita a prezzi irrisori. (L. 1.440 i 16 
Kbyte, L. 2.000 i 48 Kbyte). Chiedo e 
offro la massima serietà. Massimiliano 
Baruffini - Via XXIV Maggio, 10 - 33097 
Spilimbergo (PN) - Tel. 0427/2940 


Cerco Adventure games per ZX Spec- 
trum 48 Kbyte. Scrivere a: Ervino Cus- 
Via Rittemeyer, 14 - 34134 Trieste 


Cambio programmi per Spectrum 
16/48 Kbyte. Inviare lista. Rispondo a 
tutti. Guido Carlino - Via Palazzo, 25 - 
98077 S. Stefano di Camastra (ME) - 
Tel. 0921/31284 


Cambio scítware per ZX Spectrum. 
Circa 300 titoli. Massima serietà. Invia- 
te la vostra lista e riceverete la mia. 
Gian Fraaco Cordani - Via Garian, 57 - 
20146 Milano - Tel. 02/4089997 


Causa cambio attività vendo ZX Spec- 
trum acquistato a Settembre, comple- 
to di imballaggio, cavetti e una trentina 
di giochi рій manuale a L. 420.000. Car- 
lo Consoni - Via Pavese, 146 - 00144 
Roma - Tel. 06/5016458 


Cerco ZX Spectrum, versiome da 48 
Kbyte RAM, telefonare tra le 20 e le 
22.30. Urgente. Paolo Imbalzano - Via 
Bologna, 15 56100 Pisa - Tel 
050/550225 


Vendo o cambio video giochi per ZX 
Spectrum. Rivolgersi a: Marco Pieran- 
toni - Via delle Fresie, 25 - 00172 Кота- 
Tel. 06/2874469 


Eccezionale! Vendo Sinclair ZX Spec- 
trum 16 Kbyte causa passaggio a siste- 
ma superiore, nuovissimo (solo 10 mesi 
di vita) e offerto in imballaggio originale 
con cavetti TV e registratore, alimenta- 
tore, cassetta dimostrativa, manuale in 
italiano, libro con 66 programmi e mol- 
to software in regalo. | tutto a sole 
L. 350.000 anche trattabili. Alessandro 
Imberti - Viale Europa, 19 - 24023 Clu- 
sone (BG) - Tel. 0346/64316 


Vendo interface 1 рій microdrive, cas- 
setta, manuale con imballaggio origina- 
le, un mese di vita, a L. 260.000 causa 
cambio sistema. Fernando Di Chirico - 
Via Pietralata, 326 - 00158 Roma - Tel. 
06/4501884 


Vendo 2Х81 piü otto cassette di giochi 
piü un manuale alla guida dello ZX81 e 
sette fascicoli con programmi per lo 
ZX81 al prezzo di L. 100.000 trattabili. 
Andrea Nucca - Via Anton Cechov, 20 
- 20151 Milano - Tel. 3083095 


Vendo monitor a fosfori verdi ad alta 
risoluzione AVT Alectronics 091G, 3 
mesi di vita, pagato L. 504.000 vendo a 
L. 350.000. Tratto solo con la zona di 
Milano. Luca Marino - Via Gelsomini, 3 
- 20146 Milano - Tel. 02/4159813 


Cerco MasterFile, Spectrum Writer. 
Cambio per software Spectrum, dis- 
pongo di 150 programmi, utility, compi- 
latori, giochi. Cerco FORTH ЕР., 
Compiler F.P., Supercode Il, Super- 
chess 3.0, Beta BASIC 1.8. Salvatore 
Renda - Viale M. Milazzo, 126 - 95041 
Caltagirone - Tel. 0933/22625 


Vendo ZX Spectrum 48 Kbyte, micro- 
drive, registratore, interfaccia 1, stam- 
pante Brother EP22, 6 libri, 10 pro- 
grammi. Materiale nuovo, ancora in 
scatola a L. 1.200.000 trattabili. Gian- 
franco La Guardia -Via S. Lucia Filippi- 
ni, 44 - 80142 Napoli - Tel. 081/334832 


Vendo ZX81 nuovo, con garanzia, 
espansione 16 Kbyte completo di libro 
istruzioni e libro di programmi, diverse 
cassette, gioco, utilità e diverso softwa- 
re a L. 170.000. Telefonare ore pasti. 
Domenico Feleppa - Via Val Caffaro, 7 
- 20100 Milano - Tel. 716333 


Scambio con stampante per ZX Spec- 
trum (32 colonne) oscilloscopio Tec- 
tronics (10 Mhz), oscillatore (SRET) 
modulato, rosmetro oppure piastra gi- 
radischi Technics SL300, piastra tape 
Hitachi mod. 22SMKII. Eventualmente 
per stampante 80 colonne e scambio 
tutto in blocco. Tratto solo con Livor- 
no e dintorni. Telefonare ore pasti. An- 
gelo Devaleri - Via Dell'Agave, 27 - 
75100 Livorno - Tel. 0586/502577 


Offro programmi per ZX Spectrum in 
cassetta o listato a prezzi convenienti: 
Puck Man, Biliardo, ecc. Telefonare 
dalle 18 alle 19. Daniele Fornasini - via 
Calzolari, 36 - 40043 Marzabotto (BO) - 
Tel. 051/932660 


7 Software Bank Sincom vende oltre 700 
programmi, per ZX Spectrum 16/48 
Kbyte e VIC 20 inespanso o espanso 
8/16 Kbyte, delle migliori marche (Ata- 
ri, Activision, ecc..). Vendesi inoltre li- 
stati per altri computer. Massimiliano 
Aprile - Via G. Invalidi, 9 - 22060 Arosio 
(CO) - Tel. 031/761034 


Scopo passaggio a sistema superiore 
vendo Sinclair ZX Spectrum 48 Kbyte, 
4 mesi di vita, perfetto più manuale di 
istruzioni, libro “77 programmi per 
Spectrum”, oltre 60 programmi su cas- 
setta, tra i migliori, oltre a vari listati. Il 
tutto, valore commerciale oltre 
750.000, a L. 350.000 trattabilissimme. 
Luca Genitoni - Via Ruggero Grieco, 
16 - 42035 Castelnovo né Monti (RE) 


Per ZX81 compro memoria da 16 
Kbyte RAM. Gianluca Bagnasco - Via 
IV Novembre, 54 - 15067 Novi Ligure 
(AL) - Tel. 0143/2652 


Vendo Spectrum 48 Kbyte a L. 
350.000; in omaggio circa 200 program- 
mi. Vendo stampante Seikosha GP50S 
a L. 250.000. Cedo in blocco a L. 
550.000. Contattare solo se veramente 
interessati. Dario Durante - Via Meuc- 
ci, 22 - 64022 Giulianova (TE) - Tel. 
085/862482 


Cerco disperatamente una piccola 
stampante per Spectrum. In cambio 
offro circa 200 programmi di cui 70 in- 
glesi. Possibile la permuta. Adriano Ca- 
talfamo - Via Della Villetta, 8 - 98071 
Capo D'Orlando - Tel. 0941/902017 


Ho programmi di ogni genere. Inviate- 
mi la vostra lista e riceverete la mia. 
Assicuro pronta risposta. | programmi 
li cedo solo su musicassetta. Biagio - 
Via Iblea, 3 - 57013 Comiso (RG) 


Vendo a metà prezzo libri Melbourne: 
1) “Spectrum Hardware Manual”; 2) 
“Spectrum ROM Disassembly”; 3) Su- 
per Charge your Spectrum”: 4) Advan- 
ced Spectrum Machine Language”. 
Come nuovi, in blocco a L. 47.000. 
Osvaldo Carlon - Cannareggio 4588 - 
30121 Venezia Tel. 041/83146 (sabato) 
02/73961 (Milano ufficio). 


Causa passaggio a sistema superiore 
vendo ZX Spectrum 48 Kbyte, manua- 
le in italiano, programmi vari su casset- 
te e riviste a L. 360.000. Andrea Marino 
- Via F. Malaguti, 1/d - 40126 Bologna - 
Tel. 051/278878 


Cambio e vendo programmi per Spec- 
trum Sinclair 16 o 48 Kbyte. Si esige e si 
assicura massima serietà. Risposta as- 
sicurata. Scrivere o telefonare a: Anto- 
nio Dilorenzo - Viale degli Oleandri, 7 - 
71042 Cerignola (FG) - Tel. 0885/28289 


Vendo Sinclair ZX Spectrum 48 Kbyte 
più interface 1 e microdrive quasi nuovi 
a L. 600.000 compresi numerosi pro- 
grammi e riviste. Franco Guerrini - Via 
Stradone S. Fermo, 17 - 37121 Verona - 
Tel. 045/39464 


Per ZX Spectrum cerco interfaccia joy- 
stick programmabile e joystick, т cam- 
bio offro: Atic Atac, Flight Simulation, 
Penetrator, Vu-Calc, Ant Attack, The 
Hobbit, Chess. Chequered Flag in 
blocco. Valore originale oltre Г. 
100.000. Fabrizio Bianchi - Via Del 
Lampioncino, 15 - 00040 Ariccia (RM) - 
Tel. 06/9372305 


Cambio superprogrammi tra cui: Ma- 
nic Miner, Chequered Flag, Invaders, 
Jet Pac, Sci, Spider, Pyramid, Hambur- 
ger, Hunck Back, Android, ecc, ecc. 
Per contattarmi telefonate ore pasti op- 
pure scrivete. | programmi girano su 
Spectrum. Gabriele Barrera - Via Giu- 
lia di Barolo, 3 - 10124 Torino - Tel. 
833043 


Vendo eccezionali programmi per ZX 
Spectrum su cassetta. Possibilità di 
scambio. Prezzi bassissimi. Riccardo di 
Nuzzo - Via Del Cigno, 54 - 47037 Rimi- 
ni (FO) - Tel. 777138 


Vendo cassetta (C60) con 55 program- 
mi da 1 Kbyte per ZX81 a L. 25.000. Nel 
prezzo é compresa la cassetta e le spe- 
se di spedizione. Scrivere a: Domenico 
Lupelli - Vico Capurso, 38- 70126 Bari - 
Tel. 080/336430 


Vendo interfaccia joystick Kempston 
рег ZX Spectrum a L. 25.000. Disponi- 
bile inoltre cassetta con vari giochi da 
usare con joystick a L. 10.000. Giorgio 
Damian - Via Vital, 65 - 31015 Coneglia- 
no (TV) - Tel. 23038 


Vendo a prezzi bassi software per 
ZX81: games, gestione economica, cal- 
colo, ecc. Per la risposta inviare franco- 
bollo da L. 450. Mario Artuso - Via 
Cantoni di Sopra, 12 - 31030 Bessica 
(TV) 


Scambio programmi di qualsiasi tipo 
per Spectrum 16/48 Kbyte. Inviate la 
vostra lista, io vi manderò la mia. Ven- 
do scritte adesive Sinclair e ZX Spec- 
trum a L. 1.000 ciascuna, disponibili in 
qualsiasi colore. Gabriele Oldani - Via 
San Giovanni, 17 - 21053 Castellanza 
(VA) - Tel. 500818 


Vendo ZX81 completo di alimentatore 
e cavetti con manuali in inglese ed ita- 
liano, libro “66 programmi per ZX81” e 
oltre 140 listati a L. 100.000 trattabili. 
Andrea Lecchi - Via Cesare Ajraghi, 28 
- 20156 Milano - Tel. 02/3270627 


Vendo stampante grafica Seikosha 
GP100A interfacciata Spectrum. Vera 
Occasione: come nuova. Solo L. 
500.000. Disponibile qualsiasi prova. 
Telefonare oppure scrivere a: Giusep- 
pe Vivio - Via Roma, 213 - 67100 L'A- 
quila - Tel. 0862/29272 
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SUPERSINC LIBRI 


CEDOLA DI ORDINAZIONE - CASSETTE 
da compilare e spedire in busta chiusa a 
J.soft - Viale Restelli, 5 - 20124 Milano - Tel. 6888228 


Ordino i seguenti libri per un importo totale di L. ...................... + L. 2.000 


come contributo fisso per spese di spedizione 


БВ Соа. 
Соа. 


O Contanti allegati 


[Г] Ho spedito l'importo a mezzo vaglia postale 


Ho versato l'importo sul cc. n? 19445204 intestato a J.soft - Milano 


Pagheró in contrassegno al postino al ricevimento dei volumi (valido solo per i 
soci in Italia) E 


SUPERSINC SOFTWARE 


CEDOLA DI ORDINAZIONE - LIBRI 
da compiiare e spedire in busta chiusa a 
J.soft - Viale Restelli, 5 - 20124 Milano - Tel. 6888228 


Ordino i seguenti libri per un importo totale di L. ...................... * L. 2.000 
come contributo fisso per spese di spedizione 


Cod. 
Cod. 


Contanti allegati 


Ho spedito l'importo a mezzo vaglia postale 


Г1 Ho versato l'importo sul cc. n° 19445204 intestato a J.soft - Milano 


С) Pagheró in contrassegno al postino al ricevimento delle cassette 
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PAPER BOOK PROGRAMMI PER 
SINCLAIR SPECTRUM cod. ASOC006 1. 16.200 


40 EDUCATIONAL GAMES 
FOR THE SPECTRUM cod. ВОВС013 L. 14.900 


Se richiesta fattura: 
Cod. Е. e P. Iva 


Per i residenti all'estero - pagamento anticipato (vaglia o versamento su ns. ccp) 


IL PRIMO DIZIONARIO cod. АМОС005 L. 16.200 
ELETTRONICO DEI COMPUTER 


Per i residenti all'estero - pagamento anticipato (vaglia o versamento su ns. ccp) 


SUPERSINGC è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ció che vi passa per 
la testa). 


IL BASIC ІМ 30 ORE 
ER SPECTRUM 


Questo semplice corso di autoistru- 
zione insegna а programmare, e un 
programma ha sempre bisogno di 
due ingredienti, un linguaggio e una 
Struttura: dunque questo libro non 
insegna solo il BASIC, ma anche co- 
me si organizza correttamente: un 
buon programma. 


Сой. 501B Рад. 360 Lire 40.000 


Rodnay Zaks 


IL TUO PRIMO 
PROGRAMMA IN BASIC 


La diffusione del BASIC per la sua 
semplicità e quasi “naturalezza” di 
programmazione fa si che una cultu- 
Ta generale sull'informatica e la sua 
applicazione non può prescindere da 
Una conoscenza di base di questo 
linguaggio. Questo lo scopo del li- 
bro: permettere anche a chi ha sol- 
tanto una cultura di base, di capire 
che cos'è il BASIC e come si usa. 

Cod. 5078 Pag. 216 Lire 19.500 


d 
№ 


Czes Kosniowski 


MATEMATICA E 
COMMODORE 64 


Tutte le funzioni matematiche dispo- 
nibili sul C64 sono qui descritte, ed il 
loro uso е illustrato con programmi 
che possono essere utilizzati dal let- 
tore all'interno dei suoi, per partico- 
lari applicazioni. 
II libro contiene anche informazioni e 
programmi su altri argomenti, come 
i codici e.la crittografia, i numeri ca- 
suali, le serie, la trigonometria, i nu- 
meri primi e l'analisi statistica dei 
dati. 
Con cassetta 

| Cod. 5700 Рад. 160 Lire 24.000 


DELLO SPEC 
Applicazioni avanze 


Un esame attento dei listati consenti- 
rà al lettore di apprendere i “segreti” 
della programmazione strutturata e 
migliorare notevolmente le proprie 
capacità di programmatore. 

| programmi presentati vanno dagli 
arcade più famosi, tra cui il celebre 
“Spectrum Invaders” ai programmi di 
utilità più interessanti, dai giochi 
d'azzardo ai programmi didattici, dai 
programmi funzionali a quelli di ma- 
tematica e di giochi di strategia. 

Con cassetta 

Cod. 414B Pag. 180 Lire 28.000 


Mike Grace 


ADVENTURE E 
COMMODORE 64 


Un manuale per ideare e utilizzare 
programmi di Adventure basati 
esclusivamente sul testo. 

Una progettazione modulare del pro- 
gramma rende più, facile la compren- 
sione della struttura. L'abilità nella 
programmazione avrà modo di emer- 
gere durante la costruzione graduale 
dell’Adventure, per modificare il pro- 
gramma dimostrativo, o addirittura 
per costruirne uno nuovo. 

Con cassetta 

Cod. 571D Pag. 240 Lire 35.000 


Rita Bonelli 


COMMODORE 16 
PER TE: BASIC 3.5 


E un libro di introduzione al BASIC 
C16 con il classico taglio didattico 
Bonelli. Adatto per la Scuola media 
inferiore е per chi non conosce l'in- 
formatica. 

La cassetta allegata al libro contiene 
diverse lezioni, una per ogni capito- 
lo, che devono essere lette prima del 
capitolo relativo. 

Con cassetta 

Cod. 413B Pag. 296 Lire 35.000 


La ус che fa testo. 


[Г == тен ж ——————— саға 1 
ritagliare (о fotocopiare) e spedire in busta chiusa а: 
| GRUPPO EDITORIALE JACKSON - Divisione Libri - Ма Rosellini, 12 - 20124 Milano 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n? copie codice Prezzo unitario Prezzo totale 


Totale 


О Pagheró contrassegno al postino il prezzo indicato piü L. 3.000 per contributo fisso 
spese di spedizione. 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 


Allego fotocopia del versamento 
Su c/c n. 11666203 a voi intestato 


О Allego fotocopia di versamento 


š su vaglia postale a voi intestato 


n 


Nome 


Cognome 


Via 


Cap Città Prov. 


Data Firma 


Spazio riservato alle Aziende. Si richiede l'emissione di fattura ORDINE 


MINIMO 
L. 50.000 


es m В | ap de] 


Рапйа І.У.А. 


1 О АНедо аззедпо della Вапса 


Dalla grande edicola 


Jackson 


< V Tutto sul personal 
; D 2 computer 


In questo numero: 
Banche dati: é nostrana 
la più grande d'Europa 


II redditometro con VisiCalc 


At: рію potenza 
sulla scrivania 


In questo numero: 


L'architetto Autocad: il tecnigrafo 
di fronte Ў elettronico 
all'informatica 

Unix per M 24 


II cancelliere nel cassetto 


L'archivio tascabile, 
quando l'agenda 
non basta 


BIT 
In questo numero: 
Speciale 
Macintosh с 
НР-11 t 
DG OE ы PERSONAL SOFTWARE 
Memotech р In questo numero: 
MTX-512 Catalogo nastri per Sharp 
Softest: Super L'ultimo perde con C64 
Window z 
TTmusic per Spectrum 
Test: Sidekick ч 
Totocalcio con Apple 
Personal-O/PC/Bit/Personal Software 


sono pubblicazioni firmate: 


GRUPPO EDITORIALE JACKSON 


via Rosellini, 12-20124 Milano 


LIL MEGLIO DI 


ANZICHE 1.7509 


Spedizione in abbonamento postale - Gruppo lll - 70 


(TRE EDITORIALE 


CONTI CORRENTI POSTALI 
RICEVUTA di un versamento L. 


о certificato di addebito di 


CONTI CORRENTI POSTALI 
Bollettino o postagiro L. i Certificato di accreditam. del versamento о del L. 


postagiro 
Lire T i 
TOR вер denota Жоғал ААА CELER uh руч 19445204 ыла, i Lire So И а 
jul c/c N. 1 9445204 intestato а: и небе езе! sul с/с М. 1 9445204 intestato а: 
І.5оН s.r.l. - V.le Restelli, 5 - 20124 Milano | CORRENTISTI POSTALI i J.soft s.r.l. - V.le Restelli, 5 - 20124 Milano 


SPAZIO RISERVATO AI CORRENTISTI POSTALI 
Titolare del C/C N... 


SPAZIO RISERVATO AI CORRENTISTI POSTALI 


Titolare del C/C N. ........ 


Firma .... Titolare del C/C М. ... 
?seguito da.......... eseguito da eseguito da 
residente in 
viali i oe eds inn 22 
Cot: ЕК Т е 

аза о] 2 
2 
« 
Bollo lineare dell'Ufficlo accettante Bollo lineare dell'Ufficio accettante Bollo lineare dell'Ufficio accettante š 
L'UFFICIALE POSTALE Н LUFF. POSTALE L'UFFICIALE POSTALE pi 
Cartellino i numerato i N 5 
Bollo a data del bollettario d'accettazione Bollo a data Bollo a data ferraro o Е 
Importante: non scrivere nella zona sottostante ! серо ER M = 


progress. numero conto 


importo 


>000000194452048< 


